Delphi库函数中有没有Sgn函数？(50分)

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #1

Sgn函数是Vb里面的，那么Delphi有没有对应的库函数呢？我查了一下函数库，似乎是
没有，但是不应该吧？

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #2

当然有了，是sign函数。不过好象只在delphi6中才有。

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #3

这函数干吗用的？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #4

uses Math 就可以了

type TValueSign = -1..1;
function Sign(const AValue: Double): TValueSign
overload;
function Sign(const AValue: Integer): TValueSign
overload;
function Sign(const AValue: Int64): TValueSign
overload;

符号函数，若传入的值小于 0 则返回 -1，若传入大于 0 则返回 1，否则返回 0
(基本数学函数)

还不如自己写呢，这么简单，为了这么个函数，而 include 了超过 2000 行代码，不值：）

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #5

你到math.pas中去看看，那里面多着呢

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #6

to all : 我的是D5，D5里面有吗？
to beta：自己写当然简单方便，我就是好奇，为什么库里没有...问问而已啦...

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #7

肯定有，你找一找就知道了

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #8

d5里好象没有吧？

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #9

好吧，就这样吧...

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #10

多人接受答案了。