Zeile im Memo löschen

[Lantis]

Hi, versuch's mal so:

Delphi-Quellcode:

var i,int:integer;
begin
  for i:=memo1.Lines.Count-1 downto 0 do
    if TryStrToInt(Trim(memo1.Lines[i]), int) // Prüfung ob Integer
      then memo1.Lines.Delete(i);
  end;
end;

das Trim, falls Leerzeichen stören

Gruß Lantis