Für jeden Tag eine Datei erzeugen

[himitsu]

Zitat von Mirco:

Hi

aber falls es mal ausversehen
geschlossen wird, ist das überprüfen ob die Datei schon vorhanden ist eine gute Idee.

hatte noch was nachgetragen, vorallem was das vorzeitig beenden/neustarten betrifft.

Aber am Besten kommst du, wenn du eher einen DateToString-Variante nimst, woo du selber das Vormat angeben kannst, damit es auf allen Rechnern und mit vrschiedenen DateString-Versionen gleich läuft.

Oder halt selber machen ... am Besten macht es sich dabei Jahr-Monat-Tag zu schreiben, dann sind die Dateien im Explorer schön sortiert.


z.B.:

Delphi-Quellcode:

FileName := 'irgendwas' + DateToFormatString('yymmdd', Now); // oder wie du nötige Funktion heißt ._.

// oder
GetSystemTime(D);
FileName := 'irgendwas'
  + IntToStr((D.wYear div 10) mod 10) + IntToStr(D.wYear mod 10)
  + IntToStr(D.wMonth div 10) + IntToStr(D.wMonth mod 10)
  + IntToStr(D.wDay div 10) + IntToStr(D.wDay mod 10);

...