5,388
社区成员
发帖
与我相关
我的任务
分享高手帮忙解答一下CurrToStr的问题
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:Currency;
j:Integer;
s:String;
begin
i:=111.123456;
s:=currtostr(i);
for j:=0 to Length(s) do
begin
write(s[j]);
end;
readln;
end.
输出是111.1234
怎样才能使结果是111.3123456?
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:Currency;
j:Integer;
s:String;
begin
i:=111.123456;
s:=currtostr(i);
for j:=0 to Length(s) do
begin
write(s[j]);
end;
readln;
end.
输出是111.1234
怎样才能使结果是111.3123456?
...全文
请发表友善的回复…
发表回复
flyingsnowfox 2003-02-28
- 打赏
- 举报
你定义的i 是currency，只有4位小数，
i:=111.123456;后i是111.1234
所以类型不对，换成float
i:=111.123456;后i是111.1234
所以类型不对，换成float
footballboy 2003-02-28
- 打赏
- 举报
Currency类型只有4位小数,所以不行
按照楼上各位的方法即可
按照楼上各位的方法即可
skyclin 2003-02-28
- 打赏
- 举报
currtostr这个是货币型转为字符串型
货币型的精度是小数位后4位,所以你不能用currtostr方法，
要得到你想到的结果，试一下floattostr,并把变量i不能定义为货币型，而要定义为double
货币型的精度是小数位后4位,所以你不能用currtostr方法，
要得到你想到的结果，试一下floattostr,并把变量i不能定义为货币型，而要定义为double
linwolong 2003-02-28
- 打赏
- 举报
就应是floattostr
outer2000 2003-02-28
- 打赏
- 举报
FLOATTOSTR
307 2003-02-28
- 打赏
- 举报
对用
FloatToStr试试
有问题请发信息到我的E-mail:guangbowang@163.com
FloatToStr试试
有问题请发信息到我的E-mail:guangbowang@163.com
weitao999 2003-02-28
- 打赏
- 举报
floattostr
bewill 2003-02-28
- 打赏
- 举报
改用Real类型试试看
使用
FloatToStr
使用
FloatToStr
YBKYO 2003-02-28
- 打赏
- 举报
多写了一个3，最后应该是111.123456
