请问Delphi中有厘米和磅之间进行转换的函数吗？

Question

在VB中有函数CentimetersToPoints()可以进行厘米和磅之间的转换，请问Delphi中有这样的函数吗？

Answer 1

我不了解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;

Answer 2

嗬嗬，少了一个冒号function CentimetersToPoints(const float: x):float;没必要做成函数，直接乘一个 28.346 就好了