Function für Vorzeichen?

[Jürgen Thomas]

Zitat von Cöster:

@ 3_of_8:
Kann es sein, dass es sign auf delphi 5 noch nicht gibt?

@ Luckie:
Ich brauch nicht ne Funktion, die mir sagt, ob die Zahl positiv ist, sondern eine, die mir das Vorzeichen zurückliefert (also 1 oder -1). Sonst könnte ich ja auch ne If-Abfrage machen.

Wenn Du mit allen Vorschlägen - vor allem der konsequenten Lösung von 3_of_8 - nicht zufrieden bist, dann schreib Dir doch Deine Funktion selbst:

Delphi-Quellcode:

function Vorzeichen( const dValue: double ): integer;
begin
  if dValue >= 0 then
  begin
    if dValue = 0
    then Result := 0
    else Result := 1;
  end
  else Result := -1;
end;

Gruß Jürgen