//没有自己写个先
function Sgn(mNumber: Real): Integer;
begin
if mNumber > 0 then
Result := +1
else mNumber < 0 then
Result := -1
else Result := 0;
end;
function Sgn(mNumber: Real): Integer;
begin
if mNumber > 0 then
Result := +1
else mNumber < 0 then
Result := -1
else Result := 0;
end;
就是取符号的
就看你怎么用