Odd
Zitat von
OH: Odd:
Die Funktion gibt true zurück, wenn das Argument eine ungerade Zahl ist.
Delphi-Quellcode:
Function Odd(i: Integer): Boolean;
Begin
Result := i and 1 <> 0;
End;
i and 1 : niederwertiges Bit auswählen
... <> 0 : testen ob dieses Bit gesetzt ist
Warum man über dieses Bit auf (un)gerade prüfen kann wird klar, wenn man sich den Datentyp mal ansieht.
Ach ja: ein binärer Vergleich ist in der Regel schneller/optimaler als eine mathematische Berechnung.