求教!!!急! 各位大师,DELPHI 5.0有保留一位小数四舍下五入的函数吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi5可能没有,Delphi7的RoundTo函数源码是这样的:function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;var LFactor: Double;begin LFactor := IntPower(10, ADigit); Result := Round(AValue / LFactor) * LFactor;end; mdi窗體這麼難弄? 请高手把下面的C++程序翻译成DELPHI。 在dbgrid中如何根据数据进行不同显示? 请高手指教:QReport支持打印分页吗?打印超长表格时该怎么作? 关于触发器提示的问题! 各位大侠帮帮忙,我有一个很急的问题,分不够可再加!!!!! 怎样把两个注册表文件进行比较,比较出不同的部分!!!!!!!!!!!!! 大家给点意见 动态创建了一批的Label后,我怎么知道我所点击的Label的caption,它是这一批中的一个,但又不确定是哪一个。请各位帮忙! 如何调用VC++的DLL库! 请问哪位有CMPP3.0协议?或者提供一下下载链接? TStringGrid问题
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
var
LFactor: Double;
begin
LFactor := IntPower(10, ADigit);
Result := Round(AValue / LFactor) * LFactor;
end;