========================= Delphi 5.0=================================
Char = 1
Boolean = 1
smallint = 2
integer = 4
longint = 4
single = 4
real = 8
double = 8 extended = 10
以上是每种数据类型的字节长度。
很明显,从extended转换为integer型是不安全的。所以我建议你修改你使用数据类型,不然你的程序也是不稳定的.
Char = 1
Boolean = 1
smallint = 2
integer = 4
longint = 4
single = 4
real = 8
double = 8 extended = 10
以上是每种数据类型的字节长度。
很明显,从extended转换为integer型是不安全的。所以我建议你修改你使用数据类型,不然你的程序也是不稳定的.
解决方案 »
- BHO添加HTML代码,求助
- delphi中如何用read读取文件然后显示?
- 用什么控件比较方便(急求)
- 不明的错误????????????????
- 关于托盘的问题,高手请指教?
- 有两个sqlsever库,库中有很多表,如何把一个库追加到另一个库中呢???急!!
- 请问怎样能够从自己的程序里将文字内容生成chm格式的文件,如电子书库那样
- 如何使用UDP实现无错数据传输
- 请教关于算法的问题,如何实现在20个数的范围中,排列出所有可能的七位数?
- 急急急!!!关于SQL的查询、统计问题。
- windows下的dos应用
- 请问在delphi里如何对实现计算机文件系统的访问。在VB中用Scripting.FileSystemObject?
function Trunc(X: Extended): Int64;//取整
function Int(X: Extended): Extended;
var
a : extended;
b : int64;
begin
a := 2132123323211.005;
b := round(a);
caption := currtostr(b);
end;
不知道是不是你的意思?
var
a : extended;
b : int64;
begin
a := 2132123323211.005;
b := round(a);
caption := currtostr(b);
end;
不知道是不是你的意思?
procedure TForm1.Button1Click(Sender: TObject);
var a:extended;
b:integer;
begin
a:=strtofloat(edit1.text);
b:=trunc(a);
edit2.TExt:=inttostr(b);
end;