Question

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

Answer 1

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

Answer 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);

Answer 3

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