Delphi中如何將一個extended型強制轉換為integer型
━━━━━━━━━━━━━━━━━━━━━━━━━━

function?? Round(X:?? Extended):?? Int64;//四舍五入,測試可行
function?? Trunc(X:?? Extended):?? Int64;//取整
function?? Int(X:?? Extended):?? Extended;

round 四舍五入
trunc 去掉小數點后面的部分取整

━━━━━━━━━━━━━━━━━━━━━━━━━━
procedure?? TForm1.BitBtn1Click(Sender:?? TObject);???
var???
??? a?? :?? extended;???
??? b?? :?? int64;???
begin???
????? a?? :=?? 2132123323211.005;???
????? b?? :=?? round(a);???
????? caption?? :=?? currtostr(b);???
end;???
不知道是不是你的意思？

━━━━━━━━━━━━━━━━━━━━━━━━━━
如果不做舍入，用Trunc()???
procedure?? TForm1.Button1Click(Sender:?? TObject);???
var?? a:extended;???
????????? b:integer;???
begin???
????? a:=strtofloat(edit1.text);???
????? b:=trunc(a);???
????? edit2.TExt:=inttostr(b);???
end;

轉載于:https://www.cnblogs.com/linguoqiu/archive/2012/12/22/2829303.html

總結

以上是生活随笔為你收集整理的Delphi中如何将一个extended型等实数强制转换为integer型的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。