Sistem tarihini yıl ay güne ayırıp mask editte gösterme

[conari]

Kod: Tümünü seç

procedure TSform.FormActivate(Sender: TObject);
Var
yil,ay,gun :string;
begin
yil:=(inttostr( YearOf(Date)));
gun:=(inttostr( dayOf(Date)));
ay:=(inttostr( monthOf(Date)));
MaskEdit1.Text:=''+yil+''+'-01-01';
MaskEdit2.Text:=''+yil+''+'-'+ay+'-'+gun+'';

kod blogu ile maskeditlere
2006-01-01 ve 2006-07-19 şeklinde atmam lazım,
yalnız ay ve günler 10 dan az oldugu zaman _7 şeklinde görüntüleniyor.

Ne yapabilirim..

[naile]

YearOf kullandığında integer değer döndürdüğü için 10 dan küçük değerler için önüne sıfır koymuyor. Ama bukadar uzatmana gerek yok zaten şu şekilde yapabilirsin:

Kod: Tümünü seç

MaskEdit1.Text := FormatDateTime('yyyy.mm.dd',Date);

[conari]

sağ kulağımı sol elle tutmuşum..
- kullanmam lazımdı denedim oluyor.
tnk