GERÇEK PAYLAŞIMI BİLENLERİN MEKANI
HOŞGELDİNİZ...

GERÇEK PAYLAŞIMI BİLENLERİN MEKANI

,.-~*´¨¯¨`*·~-.¸-(_FRM¥ØK¥ØK_)-,.-~*´¨¯¨`*·~-.¸
 
AnasayfaTakvimSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

 Tip tanımlamaları

Aşağa gitmek 
YazarMesaj
KaRaKuLe
Admin
Admin
avatar


MesajKonu: Tip tanımlamaları   Cuma Mart 27, 2009 12:06 am

Kendi oluşturduğunuz tipleri programda nerde kullanacağınızı anlatan bir örnek.type
hafta=(Pazartesi,Sali,Carsamba,Persembe,Cuma,Cumar tesi,Pazar);
//yeni tip tanımlaması yapılıyor...

var
gun:hafta;
//Global bir değişken tanımlamış olduk...


procedure gunmesaj;
begin
if gun=Pazartesi then
ShowMessage('Monday')
else if gun=Sali then
ShowMessage('Tuesday')
else if gun=Carsamba then
ShowMessage('Wednesday')
else if gun=Persembe then
ShowMessage('Thursday')
else if gun=Cuma then
ShowMessage('Friday')
else if gun=Cumartesi then
ShowMessage('Saturday')
else
ShowMessage('Sunday');
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
gun:=Pazartesi;
gunmesaj
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
gun:=Sali;
gunmesaj
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
gun:=Carsamba;
gunmesaj
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
gun:=Persembe;
gunmesaj
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
gun:=Cuma;
gunmesaj
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
gun:=Cumartesi;
gunmesaj
end;

procedure TForm1.RadioButton7Click(Sender: TObject);
begin
gun:=Pazar;
gunmesaj
end;

end.
Sayfa başına dön Aşağa gitmek
 
Tip tanımlamaları
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
GERÇEK PAYLAŞIMI BİLENLERİN MEKANI :: BİLGİSAYAR DÜNYASI :: Yazılım :: DelpHi-
Buraya geçin: