写了一个函数，出错。帮忙看看。

icank 2003-01-08 01:20:10

function CutFloat(const Value: Extended; const Digits: Byte): Extended;
var
V1, LFactor: Extended;
V2: Int64;
begin
LFactor := IntPower(10, Digits);
V1 := Value * LFactor;
V2 := Trunc(V1);
V1 := V2 / LFactor;
Result := V1;
end;

用 CutFloat(100.51, 5) 调用，返回 100.51 正确。
但用 CutFloat(150.51, 5) 调用，返回的是 150.50999
V2 用的是 Int64 类型，15051000 并没有超出范围啊！怎么回事啊？
应该怎么样修改？

...全文

42 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxpbuaa 2003-01-10

打赏
举报

Delphi已经有这个方法了：
procedure Str(X [: Width [: Decimals ]]; var S);
比如：

var
T: string;
begin
Str(100.51:0:5, T);
//T=100.51000
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

singlesword 2003-01-09

打赏
举报

function CutFloat(const Value: Extended; const Digits: Byte): Extended;
begin
var
Str1, Str2: string;
i, Count: integer;
begin
Str1 := FloatToStr(Value);
i := 1;
Count := -1;
while i<=Length(Str1) do
begin
Str2 := Str2 + Str1[i];
if Count > -1 then
Inc(Count);
if Count = Digits then
break;
if Str1[i] = '.' then
Count := 0;
Inc(i);
end;
Result := StrToFloat(Str2);
end;

singlesword 2003-01-09

打赏
举报

呵呵，那个Temp是多余的，忘了删掉了。

singlesword 2003-01-09

打赏
举报

这样吧？
function CutFloat(const Value: Extended; const Digits: Byte): Extended;
begin
var
Str1, Str2: string;
Temp: Extended;
i, Count: integer;
begin
Temp := IntPower(10, Digits) * Value;
Str1 := FloatToStr(Value);
i := 1;
Count := -1;
while i<Length(Str1) do
begin
Str2 := Str2 + Str1[i];
if Count > -1 then
Inc(Count);
if Count = Digits then
break;
if Str1[i] = '.' then
Count := 0;
Inc(i);
end;
Result := StrToFloat(Str2);
end;

fengjn 2003-01-09