Function für Vorzeichen?

[Dax]

Zitat von Cöster:

Wie kann man das denn ohne if (und ohne Assembler) schreiben?

Delphi-Quellcode:

function Sign(i: Integer): Integer;
begin
  Result := (0 - (i shr 31)) or 1;
end;