record tipi tanımlama

[cfyasar]

unit in başında şöyle bir record tanımlıyorum.

Kod: Tümünü seç

type 
    tarih=record
       gun,ay,yil:integer;
    end;

ileride bir procedure de de yeni tanımladığım recordun içine bu tarih i de atmak istiyorum.

Kod: Tümünü seç

proceduce deneme;
type
    bilgi=record
     adi,soyadi:string;
     // tarihi buraya nasıl eklemeliyim ki kullanımı aşağıdaki gibi yapabileyim
     end;
var
    giris:bilgi;
begin
    giris.adi:='ali';
    giris.soyadi:='veli';
    giris.gun:=15; 
    giris.ay:=2;

[cuneyt22]

Kod: Tümünü seç

type 
tarih1=record 
gun,ay,yil:integer; 
end; 

bilgi=record 
adi,soyadi:string; 
Tarih:TTarih1;
end; 


Private
deneme: TBilgi;

procedure TFrm.FormCreate(Sender: TObject);
begin
Deneme.Tarih.Gun:=Date;
end;

Bu isini gorur Ins.

[cfyasar]

o şekilde yapabiliyorum zaten. sorduğum şekilde yapabilirmiyim diye merak ettim. zaman ayırdığın için teşekkürler