SaveToFile mit Anhang aus dem Memofeld

[Popov]

Ähnlich, Code oben leicht verändert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, d: String;
begin
  s := Memo1.Lines.Text;  //Beinhaltet z. B.: TEXT TEXT TEXT TEXT TEXT **ID 999
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); //evtl. Zeilenumbruch ...
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); //entfernen
  s := Trim(s);
  ShowMessage(s);  //Ergebnis ist: ID 999
end;