|
Registriert seit: 6. Jun 2006
589 Beiträge
Turbo Delphi für Win32
|
Function für Vorzeichen?
8. Sep 2006, 17:25
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
a := Vorzeichen(b)*5;
Bisher mach ich das so:
a := Abs(b)/b*5;
Aber das ist sicherlich nicht die eleganteste Art.
|