Zitat von
3_of_8:
Nimm nie ein if, wenn du stattdessen eine arithmethische Operation kriegst. Ifs bremsen den Prozessor ab.
Was denkst du denn, was ein
ja bzw.
jg in Assembler ist?
Die Version von Hawkeye219 ist laufzeittechnisch schon optimal - schade dass man Assembler-Funktionen nicht inline machen kann...
// Nachtrag: ich Dummkopf...
Delphi-Quellcode:
function Sign(Value: Integer): Integer; inline;
begin
Result := (Value shr 31) or 1;
end;