本文整理自网络,侵删。
function FloatToInt(const F: Double): Int64;begin // We don't just use Round() on its own because don't want bankers rounding. Result := Round(SimpleRoundTo(F, 0));end;
相关阅读 >>
Delphi winapi: setwindowtext - 设置窗口标题
Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法
Delphi winapi: messagebeep - 播放一个系统声音
更多相关阅读请进入《Delphi》频道 >>