怎么转换?变成百分制 % var a,b:integer;edit1.Text:=(a-b)/a; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Edit1.text :=Format('%d%%',trunc((a-b)/a*100)) 1L,要加中括号吧 Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]); There is no overloaded version of 'Format' that can be called with these arguments 带2位小数:Edit1.text:=format('%n%%',[(a-b)/a*100]); 請問CxGrid如何在Cell裏的字串中插入字符呢? Midas问题,急需大侠拔刀 救命啊 救命啊!!!这下玩完了,呜呜呜~~~~~ 怎样在网络中传输大于$FFFF,小于$FFFF FFFF的integer? 在intraweb中如何调用com+,谢谢!急 怎样用过程条显示下载的进度? 如何用QR的QRGROUP实现这个格式? DBGIRD中的内容显示到Edit中呢,该用什么方法. 如何影射驱动器,播放文件 D7 如果设置EDIT或maskedit ,使输入数字进能变成千分位格式 求高人指点...VB转delphi的.哭一天了.
Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);
Edit1.text:=format('%n%%',[(a-b)/a*100]);