datei mit datum als name

[himitsu]

Zitat von robinWie:

wie wärs damit. Ist zwar etwas lang aber funktioniert

Code:

var 
 Y, M, D: Word;
 H, MO, S, MS: Word;
 datum: string;
begin
 [color=#ff0000]Date := Now;[/color]
 DecodeDate(Date, Y, M, D);
 DecodeTime([color=#ff0000]Date[/color], H, M, S, MS);
 [color=#ff0000]datum := IntToStr(Y) + '_' + IntToStr(M) + '_' + IntToStr(D)
   + '__' + IntToStr(H) + '_' + IntToStr(MO) + '_' + IntToSTr(S);[/color]
 //...
end;

PS: dat sollte das Selbe ausgeben ^^

datum := FormatDateTime('yyyy_m_d__h_m_s', Now); Wobei es so (mit 2-stelligen Zahlen) wohl besser aussieht
datum := FormatDateTime('yyyy_mm_dd__hh_mm_ss', Now);