Text Wegschneiden

[choose]

Wenn Du reguläre Ausdrücke einsetzen magst, könnte der Vollständige Code, um die Eingangsdaten aus Memo1 in die von Dir geünschte Form nach Memo2 (unter der Vorraussetzung, das keine weiteren Sonderfälle vorhanden sind) innerhalb der Ereignisbehandlungsroutine Button1Click zB so aussehen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iLine: Integer;
begin
  Memo2.Clear;
  with Memo1.Lines, RegExp('^(.*?\s){2}(.*)\s.*?86\s*$') do
    for iLine:=0 to Pred(Count) do
      Memo2.Lines.Add( Replace(Strings[iLine], '$2', True));
end;