Auslesen ob Integer Positiv oder Negativ ist

[Dennis07]

Zitat von TurboMagic:

Nur Achtung: das funktioniert so nur unter Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline asm...

Das ist doch eine ganze ASM-Funktion.
Und wer unter keinen Umständen ASM verwenden will, der kann das ganze auch als einzeiler in Pascal schreiben:

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := Boolean(X shr 31);
end;

Ist jetzt wirklich kein Hexenwerk. Oder halt...

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := X < 0;
end;

wie schon etliche male vorgeschlagen wurde.