浮点数(即实数)的转换问题?Single,Double,Extended,Real,Real*48这几个实数转换成整数,彼此之间的转换,整数转换成他们。
这些函数或过程在哪儿啊?实在不好找,请你们指点一下!最好写出几个函数或过程在这儿,本人深表感谢!Delphi的帮助文档远不如微软的CSDN,极为不便。

解决方案 »

  1.   

    //实数类型间直接赋值即可
    //实数类型到整数类型参考楼上的函数
    var
      vSingle: Single;
      vDouble: Double;
      vExtended: Extended;
      vReal: Real;
      vReal48: Real48;
      vInteger: Integer;
    begin
      vSingle := vDouble;
      vExtended := vReal;
      vReal48 := vInteger;
      vInteger := Trunc(vReal48);
    end;
      

  2.   

    trunc
    round
     一个是有四舍五入,另一个舍入方法不同
    还有 int 应是返回整数部分,在system 单元中有说明