Mein erster Versuch.
In den Labels wird der extrahierte String angezeigt.
Soweit funktioniert es.
Aber das if wird nicht weiter durchlaufen.
Code:
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
vergleich1, vergleich2: string;
begin
for i := Memo2.Lines.Count - 1 downto 0 do
begin
vergleich1 := Copy(Memo2.Lines.Text, 1, 20);
vergleich2 := Copy(Memo2.Lines.Text, 1, 20);
Label1.Caption := vergleich1;
Label2.Caption := vergleich2;
if (vergleich1 <> vergleich2) then begin
Memo2.Lines[i] := '#13#10';
end;
end;
end;