类型转换：（Double 转换 Longint）？？

Question

procedure TFormLab.GetPhPos(PhValue:string);
var PhValuePos:TPoint;
    Values:Double;
begin
   Values:=strtofloat(PhValue);
   PhValuePos.y:=Longint(OneHeight*Values);
   PhValuePos.x:=XPos;
end;PhValuePos.y:=Longint(OneHeight*Values);
类型不匹配。请问。需要咱个转换！！！

Answer 1

把一个小数转成整数，直接转当然不行，通常情况下，小数精读肯定要损失了，事关重大，计算机一定要你明确告诉它怎样处理这些损失。所以你应该用int(), round(), trunc()一类的函数处理它