本人在計算一文本文件數據時時出現一個浮點數計算錯誤.請指教.

Question

本人在計算一文本文件數據時時出現一個浮點數計算錯誤
代碼為
procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
  S:string;
  Ta:Real;
begin
  try
    AssignFile(F,'1.txt');
    Reset(F);
  except
    Exit;
  end;
  Ta:=0;
  while not Eof(F) do
  begin
    Readln(F,S);    
    Ta:=ta+StrToFloat(S);
    Memo1.Lines.Add(FloatToStr(Ta))
  end;
  CloseFile(F);
end;1.txt 中的數據為
88.86
0.96
0.96
0.96
0.96
0.96
0.96
0.96
0.96
3.96
memo1中顯示為
88.86
89.82
90.78
91.74
92.7
93.66
94.62
95.58
96.5399999999999
100.5
我想知道為什麼在計算95.58+0.96後結果為96.5399999999999 我應怎樣修改.

Answer 1

浮点型就是存在这个问题，建议FORMAT一下：Ta:=ta+StrToFloat(S);
    Memo1.Lines.Add(FloatToStr());
该为：
Ta:=ta+StrToFloat(S);
Memo1.Lines.Add(FORMAT（'%0.2f',[Ta]）；

Answer 2

Ta:=ta+StrToFloat(S);
Memo1.Lines.Add(FORMAT('%0.2f',[Ta]))；

Answer 3

format是能行，但是保留的位數'％0.2'還是要存在一個表裡面還要用戶設置這樣太麻煩了，有沒有一個好的函數來處理