Zahl gerade oder ungerade?

[Nothine]

Zitat von Stevie:

[senfmode]Die Funktion Odd ist CompilerMagic, deshalb wird sie wohl schneller sein, als alle selbst gebauten... [/senfmode]

[klugscheiß]
nich unbedingt, als funktion ist Odd nix anderes als

Delphi-Quellcode:

function Odd(X: Longint): Boolean;
asm
  AND EAX,$01 // AND AL,$01 würde sogar schon reichen
end;

und bei z.B. if Odd(Variable) then halt

Delphi-Quellcode:

...
  TEST {Register or Memory},$01
  J{bedingung} //oder SET{bedingung}, je nach verwendung

also ich glaub das kann man auch noch selber so schnell nachbauen wie der compiler
[/klugscheiß]
das musste jetz sein