怎样把一个小数格式化为一个指定整数位数和小数位数的值? 笑嘻嘻 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ShowMessage(FormatFloat('#,##0.00', 2.34)); var d: double;d := 2.34;ShowMessage(FormatFloat('0.00', d - Trunc(d))); formatfloat返回的是字符串,我要的是格式化后的小数值 var num:byte; source,dest:real;begin num:=3; source:=12.234324; dest:=frac(source); dest:=int(dest*power(10 , num))/power(10, num); showmessage(floattostr(dest));end; 多此一举了,呵呵,可以format后再strtofloat的。 delphi7做的小软件有没有免费的皮肤? 关于打印的问题 一个初级的问题。 怎样消除文字锯齿 关于三层应用系统的发布问题,我愿倾家荡产都可以! !!!任务栏右键菜单(添加自己的菜单)! 为什么用ADOConnection.Open时会报错“尚未调用CoInitilize”? 怎样从存储过程返回值,sqlserver7,简单问题? 在delphi5中本地SQL支持几级嵌套? 急、急!!!请各位大虾快快来帮我一把........... 如何让memo中按下一个key后让这个key不显示? 数据备份
d: double;d := 2.34;
ShowMessage(FormatFloat('0.00', d - Trunc(d)));
num:byte;
source,dest:real;
begin
num:=3;
source:=12.234324;
dest:=frac(source);
dest:=int(dest*power(10 , num))/power(10, num);
showmessage(floattostr(dest));
end;