Abgesehn vom
FormatDateTime, nochmal zum ursprünglichen Problem.
bei mir steht beim ausführen jedoch in dem kleinen Fenster nur 004096
DAY hat wert 0 , MONTH den wert 0 und YEar den wert 4096, WARUM ? ? was mach ich falsch?
Ja und wo hast du dein
Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year);
denn stehn?
Jedenfalls nicht in der Button1-Klickmethode. (dort wo deine Variablen deklariert sind)
Fazit: Dein Code nutzt nicht diese Variablen, sondern irgendwas Anderes.
Ach ja, IntToStr kennt keine führenden Nullen. Wenn, dann über
Zitat:
Format
und wie man die führenden Nullen einstellt, steht in der
OH.
Oder Mathematisch:
Edit2.Text := IntToStr(Day * 1000000 + Month * 10000 + Year);
, wobei du hier auch aufpassen mußt, da ja dennoch eine 0 fehlen kann, wenn Day < 10.