菜鸟想问 inc(Dir,2);是什么意思，返回是什么值？我的代码怎么执行不了？(30分)

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
dir:integer;
begin
dir:=0;
edit1.text:=inc(Dir,2);
end;

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #2

>>inc(Dir,2);即Dir:=Dir+2;
edit1.text:=IntToStr(inc(Dir,2));

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #3

inc(Dir,2)
等于
dir := dir + 2;
返回整数
符给edit.text会报错

可用edit1.text := inttostr(inc(Dir,2));

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #4

好快
问题出来不到1min
答案就出了，诶。

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #5

inc(Dir,2)
等于
dir := dir + 2;
没有返回值
可用
inc(Dir,2);
edit1.text := inttostr(Dir);

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #6

阿
是我想当然了

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #7

edit1.text:=inc(Dir,2);///这句话有毛病
Inc是加法操作是一个过程，无返回值第二个参数可缺省默认为1
也就是和 Di:=dir+2;等价。
所以应该是
inc(dir,2);
edit1.text:=floatttostr(dir);

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #8

qianwt,wr960204给出的答案是对的！！