191问答库 > 请问在Delphi中如何将一个extended型强制转换为integer型。请哪

请问在Delphi中如何将一个extended型强制转换为integer型。请哪

2025-03-05 03:03:04

推荐回答（3个）

回答1：

========================= Delphi 5.0================================= Boolean = 1 smallint = 2 Char = 1 integer = 4 longint = 4 single = 4以上是每种数据类型的字节长度。 real = 8 double = 8 extended = 10很明显，大大extended转换为integer型是不安然的。所以我建议你修改你应用数据类型，不然你的法度榜样也是不稳定的.

回答2：

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

回答3：

function Trunc(X: Extended): Int64;//取整function Round(X: Extended): Int64;//四舍五入function Int(X: Extended): Extended;