Für jeden Tag eine Datei erzeugen

[stoxx]

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