Gerade Zahl

[Helmi]

Zitat von himitsu:

Odd

Der vollständigkeitshalber:

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 not Odd(n) then
        Memo1.Lines.Delete(i);
end;