Memo1 inhalt abspeichern

[Alterauge]

Hallo,

möchte gerne den inhalt eines Memofeldes abspeichern!
Es soll aber so sein, wenn ich Button1 drücke:
Das eine .txt Datei neu mit Datum und Uhrzeit erstellt wird.

Hat einer eine Idee?
Mir ist nur dieser Code bekannt :

Memo1.text.savetofile= ('C:\Test.txt'); // aber so ist es falsch!

[Klaus01]

Delphi-Quellcode:

memo1.lines.saveToFile(format('c:\Test_%s_%s',[dateToStr(now),timeToStr(now)]));

und vielleicht nicht in das \ Verzeichnis von C: speichern.

[edit] ausgebessert siehe #3
Grüße
Klaus

[Bummi]

Memo1.Lines.SaveToFile ...

[DeddyH]

Delphi-Quellcode:

procedure SaveToCurrentTimeAsFileName(Lines: TStrings; const Directory: string);
var
  Filename: string;
begin
  Assert(Assigned(Lines));
  Filename := FormatDateTime('yyyy-mm-dd_hh-nn-ss', now) + '.txt';
  Lines.SaveToFile(IncludeTrailingPathDelimiter(Directory) + Filename);
end;

...
SaveToCurrentTimeAsFileName(Memo1.Lines, 'C:');

[Alterauge]

danke geht!