Tip tanımlamaları

Admin

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.