Memo String suche und Löschen

[LTE5]

Dann so

Delphi-Quellcode:

for i := Memo1.Lines.Count - 1 downto 0 do
 begin
  iPos := System.SysUtils.LastDelimiter('%', Memo1.Lines[i]);

  if iPos > 0 then // weil du eben von irgendwas mit 7, 8 und was weiß ich geschrieben hast, stand hier vorher > 7
   begin
    Memo1.Lines[i] := Copy(Memo1.Lines[i], 1, iPos);
   end;
 end;