edit1.text tarih

[resul]

edit1.text tarih girmek istiyorum amam 01022007 şeklinde girdiginme aralarına otomatik nokta koysun bunu hangi fonksiyonla yaparım yada örnek vere bilirmisiniz ama maksedit kulanmadan yapmak istiyorum

[danaci]

editin onexit olayına
gun:=copy(datetostr(date),1,2);
ay:=copy(dateTostr(date,4,2);
yil:=copy(dateTostr(date,7,4); olarak alacak şekilde değişkenlere at
daha sonra

edit1.text:=gun+'.'+ay+'.'+yil yap

[afsarbey]

ya ben öle yaptım da şöle bi hata veriyor;

[Error] Unit1.pas(31): Incompatible types: 'TDate' and 'String'
[Error] Unit1.pas(32): Incompatible types: 'TDate' and 'String'
[Error] Unit1.pas(33): Too many actual parameters

[resul]

procedure TForm1.Edit1Exit(Sender: TObject);
var
gun:AnsiString;
ay:AnsiString;
yil:AnsiString;

begin

gun:=copy(datetostr(date),1,2);
ay:=copy(dateTostr(date),4,2);
yil:=copy(dateTostr(date),7,4);
edit1.text:=gun+'.'+ay+'.'+yil

end;

end.

Böyle yaptım ama bana Edit1.text girilen degilde sistemin bugünkü tarihini veriyor

[danaci]

datetostr(date) yerine hangi edite giriş yapıyorsan o editin adını yaz
editin onexit olayına
gun:=copy(edit1.text,1,2);
ay:=copy(edit1.text,3,2);
yil:=copy(edit1.text6,4);

sonra edit1.text:=gun+'.'+ay+'.'+yil olarak yap