Function für Vorzeichen?

[3_of_8]

Ich hätt das jetzt so gelöst:

Delphi-Quellcode:

function Sign(const AValue: Integer): Integer;
asm
cmp eax, 0
ja @positive
cdq
mov eax, edx
ret
@positive:
mov eax, 1
end;