procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : Double;
begin
a:=102531;
b:=0.075;
c:=a*b;
Showmessage(Format('%.2f',[a*b]));
Showmessage(Format('%.2f',[102531*0.075]));
end;

數值一樣，一個有用變數接收，一個沒有，答案算出來竟然不一樣，現在已改成用運算的方式(X*100 0.5)/100

你的問題怪怪的~~
我試了也覺得怪怪的~~
如果是要四捨五入,給你一個含式
iType傳2進去,就是四捨五入了
iDec請傳要到小數後幾位
fValue是數字

//Type=1(4in5cut),2(all in)
function XRound(fValue: Real; iDec,iType: Integer): Real;
var
i, iCheckValue: Integer;
Str: String;
bAddOne: Boolean;
rResultValue: Real;
begin
bAddOne:= False;
for i:=0 to iDec do
fValue:= fValue * 10;
Str:= FloatToStr(fValue);
if Pos('.',Str) > 0 then
Str:= Copy(Str,1,Pos('.',Str)-1);
iCheckValue:= StrToInt(Str);
if iType = 1 then
begin
if iCheckValue mod 10 >= 5 then
bAddOne:= True
end else if iType = 2 then
bAddOne:= True;
if Length(Copy(Str,1,Length(Str)-1)) = 0 then
iCheckValue:= 0
else
iCheckValue:= StrToInt(Copy(Str,1,Length(Str)-1));
if bAddOne then
iCheckValue:= iCheckValue 1;
rResultValue:= iCheckValue;
for i:=1 to iDec do
rResultValue:= rResultValue / 10;
Result:= rResultValue;
end;

Delphi有一個Bug或是特色= =
就是
四捨六入五成雙
五成雙是指前一位雙數進位,單數捨棄,夠怪吧= =
如果要4捨5入就自己寫程式吧

四捨六入五成雙，這個我曉得，但是我遇到的卻是同樣的數值，一個有用變數接，一個沒有，而答案就不一樣
看來真的要自己寫了，拿樓上的大大FUNCTION來看看了~~~

===================引 用 frappe 文 章===================
Delphi有一個Bug或是特色= =
就是
四捨六入五成雙
五成雙是指前一位雙數進位,單數捨棄,夠怪吧= =
如果要4捨5入就自己寫程式吧

var a,b,c : Extended;
begin
a:=102531;
b:=0.075;
c:=a*b;
Showmessage(Format('%.2f',[a*b]));
Showmessage(Format('%.2f',[102531*0.075]));
end;

自己不了請不要牽拖 Delphi。
Delphi 是無辜地。

PS.四捨六入五成雙 是指 Round 函數。

這個方法試過了是ok，謝謝大大囉，但是稍微改了一下，又不行了
最主要的原因是因為我的數值是從資料庫裡帶出來的，資料型態是float，所以我改成下列的方式，結果還是有問題
var a,b,c : Extended;
d,e : Double;
begin
d:=102531;
e:=0.0750;
a:=d;
b:=e;
c:=a*b;
Showmessage(Format('%.2f',[c]));
Showmessage(Format('%.2f',[102531*0.075]));
===================引 用 RootKit 文 章===================
var a,b,c : Extended;
begin
a:=102531;
b:=0.075;
c:=a*b;
Showmessage(Format('%.2f',[a*b]));
Showmessage(Format('%.2f',[102531*0.075]));
end;

自己不了請不要牽拖 Delphi。
Delphi 是無辜地。

PS.四捨六入五成雙 是指 Round 函數。

Double 型態( IEEE 754)。會有精密度精確的問題。
7689.825
實際上內容是 7689.82499999.. 使用 %.2f 只會取小數點第三位值做出判斷四捨五入就會變成 7689.82
就如同 TDateTime = Double
我們不能用if A = B 來判斷時間，必須用範圍值 來判斷。

因此如果你的資料庫為運算的結果。在型態不可改下，就只能透過自訂函數解決。

原來如此，謝謝詳細的回答^_^
可惜不可以給二個人分數，所以我把分數給jimmy wei，因為我用他的function來處理目前的問題～～～～
但也謝謝rookit的回答，在觀念上更加的清楚~~~~~
===================引 用 RootKit 文 章===================
Double 型態( IEEE 754)。會有精密度精確的問題。
7689.825
實際上內容是 7689.82499999.. 使用 %.2f 只會取小數點第三位值做出判斷四捨五入就會變成 7689.82
就如同 TDateTime = Double
我們不能用if A = B 來判斷時間，必須用範圍值 來判斷。

因此如果你的資料庫為運算的結果。在型態不可改下，就只能透過自訂函數解決。