SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

Jetzt geht es!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text; 
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); 
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); 
  s := Trim(s);
  Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss__',now)+(s) + '.txt');
  Memo1.Clear;
end;