Gerade Zahl

[Helmi]

wie wärs damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  n: Integer;

begin
  for i := Pred(Memo1.Lines.Count) downto 0 do
    If TryStrToInt(Memo1.Lines.Strings[i], n) then
      If (n mod 2) = 0 then
        Memo1.Lines.Delete(i);
end;