function FloatToInt(Value: Extended): Int64; var S : String; i : Integer; begin S := FloatToStr(Value); i := Pos('.', S); if i > 0 then Result := StrToInt64(Copy(S, 1, i - 1) + Copy(S, i + 1, Length(S) - i)) else Result := StrToInt64(S) end;//调用的例子 ShowMessage (IntToStr(FloatToInt(1234.56789))); end;
function FloatToInt(Value: Extended): Int64;
var
S : String;
i : Integer;
begin
S := FloatToStr(Value);
i := Pos('.', S);
if i > 0 then
Result := StrToInt64(Copy(S, 1, i - 1) + Copy(S, i + 1, Length(S) - i))
else
Result := StrToInt64(S)
end;//调用的例子
ShowMessage (IntToStr(FloatToInt(1234.56789)));
end;