Memo1 inhalt abspeichern

[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:');