L li_zhifu Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-16 #3 不行吧,你可以这样 s:=StringReplay(FloatToStr(123.456),'.','',[rfReplaceAll]);//String or i:=StrToInt(StringReplay(FloatToStr(123.456),'.','',[rfReplaceAll]));//Integer
不行吧,你可以这样 s:=StringReplay(FloatToStr(123.456),'.','',[rfReplaceAll]);//String or i:=StrToInt(StringReplay(FloatToStr(123.456),'.','',[rfReplaceAll]));//Integer
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-16 #4 function FloatToInt(Value: Double): Cardianl; begin while abs(Value-Trunc(Value))>1e-6 do Value:=Value*10; Result:=Trunc(Value) end;
function FloatToInt(Value: Double): Cardianl; begin while abs(Value-Trunc(Value))>1e-6 do Value:=Value*10; Result:=Trunc(Value) end;