大大， / 和 div 是 Delphi 除法的運算了， 如果要用除法來計算繪圖中的列或行值， 則因為 / 傳回的是 Extended，又不能用 Integer() 強制轉換， 不方便使用於繪圖計算，因為繪圖一般都用整數來計算。 用 div 的話會有四捨五入的問題，以決定列號為例，若列高10 pixels 99 div 10，會傳回10，即第10列，但其實應該是第 9 列才對，div 不適用。 但如果用 C 語言的 /，則會傳回 9，得到第 9 列，這就正確了。 最後我只好用 inline 組合語言來寫個只會傳回"商"整數的除法函式， 真感慨，都已經使用 Delphi 這套不得了的工具了， 還得為個除法而要動用組合語言。 除了動用組合語言，還有別的方法嗎？

引言: 用 div 的話會有四捨五入的問題，以決定列號為例，若列高10 pixels 99 div 10，會傳回10，即第10列，但其實應該是第 9 列才對，div 不適用。

cancer 你好 / :除法運算 div :取商數運算 Mod :取餘數運算 因此 99 div 10 = 9 (怎麼會傳回10 呢),而pixels的註標是從0開始計算的,0:第1列、1:第2列....故而9:第10列,所以要得正確的列數必須將得到的值再減1即可，如：(99 div 10)-1 才對啊! _______________________________________ 深藍的魚，祝您好運..........連連

cancer 你好, 我試了一下沒發現這個問題

procedure TForm1.Button1Click(Sender: TObject);
var a : Double;
begin
  a := 99 div 10; //得到9
  Edit1.Text := FloatToStr(a);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

應該是 cancer 兄記錯了， div 是整數的除法，所以 (99 div 10) 是傳回 9 ，而 (99 / 10) 因為四捨五入會傳回10，所以我查了一下 on-line help ，似乎可以用 int() 先取得整數部份再用 round() 轉換為 integer. round(int(99 div 10)); 如果想加快速度的話甚至可以用減法迴圈來做....不過成效可能不大

謝謝大大們解答 我查了HELP，得到這句話 The value of x div y is the value of x/y rounded in the direction of zero to the nearest integer. 因為先前我看某網頁說 div 會四捨五入，所以就以為這句英文是 同樣意思，沒再深究，但現在再仔細看一清楚，div 真的傳回商， 這次真怪我只看說明，沒有打程式來實際測試，真是見怪了！

cancer 你好: 試試 TRUNC(11/200)

------
======================
昏睡~
不昏睡~
不由昏睡~