und wenn man sich den binären aufbau der zahlen anschaut kann man sich das mod auch sparen und etwas in der richtung schreiben:
Delphi-Quellcode:
function Gerade(const I: Integer): Boolean;
begin
Result := I and 1 = 0;
end;
edit: und am rande bemerkt, odd gibt zurück ob die zahl UNgerade ist, ich glaub das war nich ganz die frage