在DELPHI 中小数问题如何处理

Question

用Format系列函数。
如果是数据库中的数据，把TFloatField.DisplayFormat := '0.00'

Answer 1

var
  a : float;
begin
  a := 1.2;                           // 1.199999
  a := int((a+0.00001)*100)/100;      // 1.2
end;

Answer 2

试试：
X:=1.2; 
Writeln(Trunc(X) + '.' + Round(Frac(X)*10000);

Answer 3

var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
你可以选的

Answer 4

我想知道，这是不是所有用DELPHI开发系统时都遇到过的问题呀