isch hab jetzt nicht alles gelesen, aber möchte hinzufügen, dass es bei mir eine Funktion MakeDString gibt, die erzeugt für den aktuellen Tag einen Namen, der z.B. so aussieht:
2006 (06) 16.Juni - TWS1 -ErrorMsg.txt
Für Logfiles sehr gut geeignet und für einen Menschen sehr gut lesebar, hat aber den Vorteil, dass die Dateien sortiert im Verzeichnis vorliegen.
Vielleicht nützt Dir das ja was.
Gruß
stoxx
Delphi-Quellcode:
function makeDstring : string;
var Y, M, D : word;
st : string;
begin
decodeDate(now, Y, M, D);
result := inttostr(Y) + ' (' + Formatfloat('00', M) + ') ' + Formatfloat('00', D) + '.' ;
case M of
1: st := 'Januar';
2: st := 'Februar';
3: st := 'März';
4: st := 'April';
5: st := 'Mai';
6: st := 'Juni';
7: st := 'Juli';
8: st := 'August';
9: st := 'September';
10: st := 'Oktober';
11: st := 'November';
12: st := 'Dezember';
end; {ende case iMonat}
result := result + st;
end; // von MakeDString