这样一个函数如何转化为delphi的函数?(50分)

B

bollwarm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-27

• #1

static
int compare(const void* a, const void* b)

{ const double term1 = *(*(double**)a);
const double term2 = *(*(double**)b);
if (term1 < term2) return -1;
if (term1 > term2) return +1;
return 0;
}

 

李

李奇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-28

• #2

function compare(a,bointer):integer;
var
term1,term2:double;
begin
term1:=PDouble(a)^;
term2:=PDouble(b)^;
if term1<term2 then
Result:=-1
else
if term1>term2 then
Result:=1
else
Result:=0
end;

 

J

jeffrey_s

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-28

• #3

Double 是要使用 CompareValue比较的。
Uses
Math;
function compare(a,bointer):integer;
begin
Result := CompareValue(PDouble(a)^, PDouble(b)^);
end;

 

B

bollwarm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-01

• #4

谢谢，两位了。

 

李

李奇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-01

• #5

散分！散分！

 

B

bollwarm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #6

多人接受答案了。