如何截取一个Double型数据的整数部分和小数点后两位? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 X := Int(X * 100) / 100;如回答 var d: Double; s: string;begin d := 3.1415926535897932384626; s := FloatToStr(d); showMessage('整数:' + copy(s, 1, pos('.',s) - 1) + #13#10 + '小数2位:' + copy(s, pos('.', s) + 1, 2));end; 这段代码为何不能打开我想打开的WORD文档呢? 用ClientDateSet作了一个程序,在别的机器上就是不能用。请大家帮助看一下。 小问题 简单的问题 请问高手们,如何实现文本以像素滚动? 怎样通过点击命令按钮来把系统的打印机设置调出来? 抢分啦!有关文本文件操作,简单,(分数一直要加) 在安装Delphi过程中出现的问题 如何监控注册表? 如何象winzip一样可以在文件的右键菜单中显示Add to zip? 急!!!在线等待!!!用 ADOQUERY 如何读取 EXCEL 的日期型字段? CPU卡的问题
d: Double;
s: string;
begin
d := 3.1415926535897932384626;
s := FloatToStr(d);
showMessage('整数:' + copy(s, 1, pos('.',s) - 1) + #13#10 + '小数2位:' + copy(s, pos('.', s) + 1, 2));
end;