Function für Vorzeichen?

[Cöster]

Hi!

Gibt's ne Funktion, der man einen Real übergibt und die dann 1 zurückgibt, wenn die Zahl positiv ist, und -1, wenn sie negativ ist?

Dass man einfach schreiben kann

Delphi-Quellcode:

a := Vorzeichen(b)*5;

Bisher mach ich das so:

Delphi-Quellcode:

a := Abs(b)/b*5;

Aber das ist sicherlich nicht die eleganteste Art.

[3_of_8]

Dafür gibts die Funktion Sign()

[Luckie]

Delphi-Quellcode:

function IsPositive(Value: Integer): Boolean;
begin
  result := Value > 0;
end;

[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.

[JasonDX]

Wenns ein einfacher Term sein soll:

Delphi-Quellcode:

ord(value >= 0) * 2 - 1

Im Fall einfach in eine Funktion schmeissen ;)

greetz
Mike

[Edit] >= statt > , dann gehts auch mit 0...

[3_of_8]

Einfach Math importieren.

@Jason: Das geht nicht, wenn du ne 0 reinbekommst.

[himitsu]

also ich weiß nicht, was du hast?

Delphi-Quellcode:

If X >= 0 Then Positiv Else Negativ;

[add]
PS: das sagt mein Delphi :zwinker:

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;

[3_of_8]

Ich hätt das jetzt so gelöst:

Delphi-Quellcode:

function Sign(const AValue: Integer): Integer;
asm
cmp eax, 0
ja @positive
cdq
mov eax, edx
ret
@positive:
mov eax, 1
end;

[Klaus01]

Delphi-Quellcode:

function Vorzeichen(Value: Integer): Char;
begin
  result:='+';
  if (Value < 0) then 
    result:='-';
end;

[3_of_8]

So hat er das nicht gemeint. Er wollte eine Integer-Wert. Außerdem hast du eine unnötige Zuweisung drin und die 0 hat kein Vorzeichen, auch kein positives. ;)