Forum: Object-Pascal / Delphi-Language
Delphi
by negaH,
16. Nov 2005
Mist, ich erzähle da mal wieder Schwachsinn über meine eigenen Source.
Also NSgn() ist so deklariert
function NSgn(const A: IInteger; Extended: Boolean = False): Integer; overload;
// Sign of A
// returns if Extended = False
// 0 if A = 0
Forum: Object-Pascal / Delphi-Language
Delphi
by negaH,
16. Nov 2005
Shit, ausgerechnet das muß dir auffallen ;)
Normalerweise fragt man zb. so ab
begin
if NSgn(A) < 0 then ... else
if NSgn(A) > 0 then ....
else ....
Forum: Object-Pascal / Delphi-Language
Delphi
by negaH,
16. Nov 2005
Spät, aber besser als nieee ;)
var
A: IInteger;
begin
if NCmp(A, 0) = 0 then ; // NCmp() -> Compare