浮点数的格式化问题FormatFloat,Format都出错.

Question

我用的是Delphi7企业版,
var
 mFYJE:Double;
begin
  mFYJE := 73.21;
  ShowMessage(FormatFloat('0.00',mFYJE));//显示为73.22
  ShowMessage(Format('%.2f',mFYJE));//显示为73.22
end;
这到底是怎么回事?如何处理

Answer 1

我这里显示正常
---------------------------
Project1
---------------------------
73.21 
---------------------------
OK   
---------------------------

Answer 2

在多层应用中的远程数据模块中就出错(DLL),得到73.22,如果我在客户端运行就得到正确答案73.21.

Answer 3

var 
 mFYJE:Double;
begin
  mFYJE := 73.21;
  ShowMessage(FormatFloat( '0.00 ',mFYJE));//显示为73.22
  ShowMessage(Format( '%.2f ', [mFYJE]));//显示为73.22