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);