Memo String suche und Löschen

[Natcree]

muss ich noch irgend eine unit einbinden der erkennt sline und ipos nicht?

[LTE5]

Am besten lokal, da wo die Schleife aufgerufen wird

Delphi-Quellcode:

var
 iPos: Integer;

sLine brauchst du nicht. Siehe oben.
Habe oben auch einen Tippfehler korrigiert.

[Natcree]

er erkennt SysUtils nicht
[Error] Unit1.pas(74): Undeclared identifier: 'SysUtils'

[LTE5]

Mach aus

System.SysUtils.LastDelimiter

das hier

LastDelimiter

[Natcree]

sline ist dann ein String?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
iPos: Integer;
sline:string;
begin
for i := Memo1.Lines.Count - 1 downto 0 do
 begin
  iPos := 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(sLine, iPos);
   end;
 end;
end;

[LTE5]

Habe mein Beispiel oben geändert.

[Natcree]

Danke jetz klappt es XDDD