datei mit datum als name

[robinWie]

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

Delphi-Quellcode:

var 
 Y, M, D: Word;
 H, MO, S, MS: Word;
 datum: string;
 time: string;
begin
 DecodeDate(Date, Y, M, D);
 DecodeTime(Time, H, M, S, MS);
 datum := IntToStr(Y) + '_' + IntToStr(M) + '_' + IntToStr(D);
 time  := IntToStr(H) + '_' + IntToStr(MO) + '_' + IntToSTr(S);
 datum := datum + '__' + time;
 //...
end;