请问Delphi中有厘米和磅之间进行转换的函数吗? 在VB中有函数CentimetersToPoints()可以进行厘米和磅之间的转换,请问Delphi中有这样的函数吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我不了解VB,但是转换大约是 英寸到points是 1/72的关系(这个在字体的字号上面常常用到)一英寸= 2.54厘米那么 1厘米= 1/(2.54/72)= 28.346 Points那么 CentimetersToPoints()你可以自己写一个函数function CentimetersToPoints(const float x):float;begin result:= x * 28.346;end; 嗬嗬,少了一个冒号function CentimetersToPoints(const float: x):float;没必要做成函数,直接乘一个 28.346 就好了 拦截一个unit类型的消息,查看值为66592,请问这是什么消息 打包后显示access数据库路径不对,无法运行 access数据库的视频数据存取 如何判断当前操作系统是Win2k还是XP? 做DLL(D7)碰到的一个问题. 用adotable,怎么增加数据? websnap写的程序,怎么通过图标点击的方式激活 object pascal 提示:表‘B’中的列与现存的主键或UNIQUE约束不匹 谁有随机抽人的源代码:滚动显示相片,用按钮来“开始”和“停止” delphi 中如何模拟浏览器把表单提交给一 asp网页处理。 数据输入问题?
但是转换大约是 英寸到points是 1/72的关系(这个在字体的字号上面常常用到)
一英寸= 2.54厘米那么 1厘米= 1/(2.54/72)= 28.346 Points那么 CentimetersToPoints()你可以自己写一个函数function CentimetersToPoints(const float x):float;
begin
result:= x * 28.346;
end;