Function für Vorzeichen?

[himitsu]

also ich weiß nicht, was du hast?

If X >= 0 Then Positiv Else Negativ; [add]
PS: das sagt mein Delphi

Delphi-Quellcode:

// Unit Math
function Sign(const AValue: Integer): TValueSign;
begin
  Result := ZeroValue;
  if AValue < 0 then
    Result := NegativeValue
  else if AValue > 0 then
    Result := PositiveValue;
end;