Function für Vorzeichen?

[Dax]

Zitat von Flocke:

Delphi-Quellcode:

function Sign(Value: Integer): Integer; inline;
begin
  Result := (Value shr 31) or 1;
end;

Nenn mich blöd, aber warum noch das or?

edit: Ja, ich hab mir das shr als sar vorgestellt beim lesen, aber warum das or muss, ist mir erst später aufgefallen... Nennt mich nicht blöd, bindet mir ein Schild um