请问这个问题，函数调用的问题（只有这点分了） ( 积分: 20 )

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #1

我想查看磁盘的总容量和使用的情况。
在label.caption里显示drive(3)和driveid(C)的磁盘总容量和使用的容量
procedure infoshow(Atabel:ttabel;drive:integer;driverid:string);（已经在From1的Private中声明了）
begin
Alabel.caption:=inttostr(diskfree(drive)*100 div disksize(drive))+'pecent is free'+#13#10+driveid+'have'+(disksize(3))/1024+'kbytes totally';
end;
在另一个preocedure中调用infoshow(label1,3,c),结果报错 undefined ....'c',就是说没定义'c'！这是怎么回事啊？

 

W

wzquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #2

driveid与driverid:string声明的不一致，当然找不到C了

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #3

高手，那应该怎么改呢？

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #4

infoshow(label1,3,'c')

另外弄清楚了是Label还是Table

 

W

wzquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #5

我这样改了一下，调试通过了
function infoshow(drive:integer;driverid:string):string;
Var
mystr:string;
begin
result:=inttostr(diskfree(drive)*100 div disksize(drive))+'pecent is free '+#13#10+driverid+' have'+inttostr(disksize(drive) div 1024)+'kbytes totally';
end;

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #6

谢谢，我试试！

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-09

• #7

多人接受答案了。