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

解决方案 »

  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;
      

  2.   

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