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;