delphi的类型转换(100分)

Z

zyhml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #1

我要从一个double型的变量中提出整数部分，赋值给一个smallint,确定double变量整数
部分没有超过smallint的数值范围。如何写代码？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #2

double取整 : trunc(...)
Smallint 2768..32767 signed 16-bit
只要整数部分介于 2768…………32767就可以。

 

K

kindly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #3

trunc啊，差一下帮助就出来了
ps:不用给我分了，慢了一步[]

 

Z

zyhml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #4

我试了下好像不行，我的double是20.0。
var i:double;j:integer;
i:=20.0;
j:=trunc(i);

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #5

procedure TForm1.Button1Click(Sender: TObject);
var i:double;j:integer;
begin
i:=20.0;
j:=trunc(i);
Edit1.Text :=IntToStr(j);
end;

你去看看！！！EDIT1里是20！！！

 

Z

zyhml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #6

谢谢，不知刚才什么原因，始终得到一个很大的值

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-22

• #7

[]直接赋值：
i:=20.000;
j:=i;