Vielfaches von 2

[xZise]

Wie kann ich mit Delphi herausbekommen ob X ein vielfaches von 2 ist?

[alcaeus]

if X mod 2 = 0

Greetz
alcaeus

[3_of_8]

Geht allerdings nur mit Ganzzahltypen.

[marabu]

Hier noch eine Alternative:

Delphi-Quellcode:

if not Odd(Trunc(n))
  then ShowMessage('n ist ein Vielfaches von 2');

Grüße vom marabu

[xZise]

Danke ^^ Es sind ganzzahlen

[3_of_8]

Und noch eine Möglichkeit:

Delphi-Quellcode:

function IsEven(X: Integer): Boolean;
asm
and al, $1
not al
end;

(EDIT: Kleine Optmierung)

[MuTzE]

Ja wie soll es sonst ein Vielfaches von 2 sein, wenns keine Ganzzahlen wären?

[fwsp]

es geht dabei um den zahlentyp, eine zahl (4) kann ein real sein oder ein integer. aber im beispiel muss es eben eine ganzzahl sein.

[Zacherl]

Denn auch eine Gleitkommazahl kann ja auch nur 2 ohne Nachkommastellen enthalten.

[MuTzE]

Das ist mir klar. Das wird er dabei schon berücksichtigt haben, Integer anstatt Real zu nehmen. Aber is ja auch egal.
__________________________
EDIT:
Und wenn nicht, dann hätte er es spätestens beim compilieren gemerkt