請問如何將浮點數轉換成整數! 目前我知道有int Function(Extended):Extended; 可是傳回的值是Extended，所以不能直接丟到整數變數中 於是改成如下(滿爛的方法): var i : integer; begin i := strtoint(floattostr(int(9.36))); 可是總是覺得怪怪的 而且不會四捨五入 另一個方法更爛，如果要四捨五入 將浮點數先加0.5(如果是要到小數第一位時)再轉成字串 直接用pos捉到小數點位置，在取得以左的值轉成整數 請問有沒有直接的方法，能將浮點數做 @_@|||好像爛到爆 最後將一二兩個方法加起來數修改變成 var i : integer; j : single; begin j := 9.36; i := strtoint(floattostr(int(9.36 0.5))); 有沒有直覺一點的方法像 i := floattoint(j); or function 四捨五入(浮點數,到小數第幾位) => i := 四捨五入(j,1); ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

You may be interested in the function round and trunc.

若你是要四捨五入的話, 可以參考這篇:    http://delphi.ktop.com.tw/topic.php?topic_id=21876

引言: function 四捨五入(浮點數,到小數第幾位)

你所列的這個函式，我之前有實作一個，請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20544 但是它傳回的是string，你可依其需要修改 發表人 - ddy 於 2003/03/17 13:10:51

參考下面程式 var n1:Extended; i:integer; v:variant; begin n1:=StrToFloat(Edit1.Text); v:=n1; i:=v; //i為n1是四捨五入到整數 end;

看來round結果好像有時.5的狀態會怪怪的~~~ 要用trunc(i＋0.5) 謝謝~~~ ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

To cmj: 謝謝你的提供， 可是如果打2.5時， 仍然是2~~ timhuang所提供的那一篇好像有說明到原因 不過內容是用round~ 好像是什麼"四捨六入 五成雙" ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

我們習慣的四捨五入的函數﹕ function DoutoInt(a : Double) : integer; begin if (trunc(a*10) mod 10)>=5 then Result := trunc(a 1) else result := trunc(a); end;