Überprüfen ob ein Wert negativ ist

[3_of_8]

Wie wäre es hiermit:

Delphi-Quellcode:

function IsNegative(Value: Integer): Boolean;
asm
shr eax, 31
end;

EDIT: Sorry, dass ich den alten Thread wieder ausgrabe, mir hat jmd den Link geschickt und ich dachte der is aktuell. , *schäm* und *klappehalt*.