64Bit Datentyp prüfen

[himitsu]

Natürlich kann man alles möglich prüfen, was man will

Delphi-Quellcode:

SizeOf(Igendwas) = 8 // immer 64 Bit
SizeOf(Igendwas) = SizeOf(Pointer) // so groß wie aktuell ein Zeiger
(SizeOf(Igendwas) = 8) and Defined(CPUX64) // nur 64 Bit, wenn 64 Bit, sonst egal
(SizeOf(Igendwas) = 8) and Declared(Sonstwas) // nur 64 Bit, wenn was Anderes vorhanden, sonst egal
SizeOf(Igendwas) * 8 = 64 // wirklich 64 Bit und nicht etwa 8 Byte
...

Delphi-Quellcode:

{$IF SizeOf(Igendwas) <> SizeOf(Pointer)}
  {$MESSAGE Error 'paßt ni'}
{$IFEND}

// oder erst zur Laufzeit
Assert(SizeOf(Igendwas) = SizeOf(Pointer), 'paßt ni');