Forum: Object-Pascal / Delphi-Language
Delphi
by Flocke,
8. Sep 2006
Ich habe gerade extra Delphi noch einmal angeschmissen, um mich zu vergewissern. Leider hast du Recht - anders als z.B. in C/C++ ist shr immer vorzeichenlos.
Du meinst bestimmt SAR, oder? :mrgreen: :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by Flocke,
8. Sep 2006
:roll: 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...
function Sign(Value: Integer): Integer; inline;
begin
Result := (Value shr 31) or 1;