为什么只显示4位小数？

p9998887778 发布于 2007-07-27 14:27， 1307 次点击

delphi里怎么只显示4位小数啊？

代码如下

procedure TForm1.Button1Click(Sender: TObject);
var

m:variant;
begin
m:=1.162179;
edit1.text:=m;
end;
end.

结果edit1只显示了1.1622阿，后面的被四舍五入了
我把edit1.text:=m换成了edit1.text:=floattostr(m);也是一样啊
谁知道怎么让他显示完全

我是新手
谢谢

3 回复

xu20002007-07-27 22:24

为什么要用variant呢？换个类型吧。

p99988877782007-07-30 09:19

因为variant对类型没有限制阿

有没有办法让他无类型限制，而又能显示全部数位的方法呢？
谢

冰凝19842007-07-31 14:55

就楼主的问题而言，貌似用不着varient类型啊：
procedure TForm1.Button1Click(Sender: TObject);
var

m:float;
begin
m:=1.162179;
edit1.text:=floatToStr(m);
end;
end.