Hallo
Dein Beispiel funktioniert super, Danke nochmal.
Eine Frage habe ich noch, kann es sein das der Inhalt vom alten Tag in die Datei des neuen Tages geschrieben wird, oder täusche ich mich?
Kann auch gespeichert werden während das Programm läuft und nicht nur wenn es beendet wird?
Viele Grüße
Mirco
Delphi-Quellcode:
var
Form1: TForm1;
Var OldFileName,NewFileName, FileName : String;
implementation
{$R *.dfm}
function GetMemoFileName: string;
begin
Result := 'FilePrefix_' + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// OnCreate/Programmstart:
OldFileName := GetMemoFileName;
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := GetMemoFileName;
If (NewFileName <> OldFileName) and not FileExists(NewFileName) Then Begin
Memo1.Lines.SaveToFile(NewFileName);
Memo1.Lines.Clear;
OldFileName := NewFileName;
End;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FileName := GetMemoFileName;
Memo1.Lines.SaveToFile(FileName);
end;
end.