Delphi Wyswietlanie daty 2008 09 07

Witam
Napisalem program i data wyswietla mi się tak : 2008 9 7
Jak zrobic aby data wyswietlala sie tak : 2008 09 07

Kawałek mojego programu do wyswietlania daty:

var rok,miesiac,dzien :word;
begin
decodedate(now,rok,miesiac,dzien);
Label1.Caption:=IntToStr(rok)+' '+IntToStr(miesiac) itd.

dzięki

---

Zaden typ liczbowy nie przechowa zera (może się i mylę). Możesz jedynie to obejść:

function JedenNaDwa(liczba: integer): string; begin if liczba < 10 then result := '0' + IntToStr(liczba); else result := IntToStr(liczba); end;

Nie wiem czy się inaczej da.

var rok,miesiac,dzien :word;
begin
decodedate(now,rok,miesiac,dzien);
Label1.Caption:=IntToStr(rok)+' '+ JedenNaDwa(miesiac) itd
Użytkownik pat edytował ten post 25 wrzesień 2008, 22:37
Można to zrobić oczywiście prościej, wykorzystując funkcję FormatFloat():
decodedate(Now, rok, miesiac, dzien) Label1.Caption := IntToStr(rok) + ' ' + FormatFloat('00', miesiac) + ' ' + FormatFloat('00', dzien);

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl