delphi 保留小数 不进位

2025-01-07 06:03:47
推荐回答(1个)
回答1:

1.用round,要引用 math单元
round(value,len);
比如你要保留三位小数就
round(1.2345,-3);//结果就是1.234
2.用trunc
//先乘1000再取整,再除以1000,就会只保留3位
r1:= trunc( (StrToFloat(edit1.text)*1000)) /1000;
edit4.text:=Floattostr(r1);