Für jeden Tag eine Datei erzeugen

[himitsu]

upps ja ... abr das hätte dir auch auffallen können ... GetMemoFileName will noch ein paar Parameter haben.

Code:

// globale Variable
Var OldFileName: String;

// zusätzliche Funktionen:
[color=#ff001f]function GetMemoFileName(const ABaseName: string; ADateTime: TDateTime): string; 
begin 
  Result := ABaseName + '_' + FormatDateTime('yyyy-mm-dd', ADateTime) + '.txt'; 
end;[/color]

// OnCreate/Programmstart:
OldFileName := [color=#ff0000]GetMemoFileName('Dir/FilePrefix', Now)[/color];
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);

// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := [color=#ff0000]GetMemoFileName('Dir/FilePrefix', Now)[/color];
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
  Memo1.Lines.SaveToFile(NewFileName);
  Memo1.Lines.Clear;
  OldFileName := NewFileName;
End;

// beim Programmbeenden
FileName := [color=#ff0000]GetMemoFileName('Dir/FilePrefix', Now)[/color];
Memo1.Lines.SaveToFile(FileName);

oder

Code:

// globale Variable
Var OldFileName: String;

// zusätzliche Funktionen:
[color=#ff001f]function GetMemoFileName: string; 
begin 
  Result := 'Dir/FilePrefix_' + FormatDateTime('yyyy-mm-dd', Now) + '.txt'; 
end;[/color]

// OnCreate/Programmstart:
OldFileName := [color=#ff0000]GetMemoFileName[/color];
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);

// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := [color=#ff0000]GetMemoFileName[/color];
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
  Memo1.Lines.SaveToFile(NewFileName);
  Memo1.Lines.Clear;
  OldFileName := NewFileName;
End;

// beim Programmbeenden
FileName := [color=#ff0000]GetMemoFileName[/color];
Memo1.Lines.SaveToFile(FileName);