如何在一个过程中调用另一个过程定义的函数？ ( 积分: 50 )

0

0452

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-17

• #1

procedure b1(Sender: TObject);
var
.......
function back(no: string): TDL;
var
V: TDL;
begin
........
end;

begin
back(g);
......
end;


procedure b2(Sender: TObject);
var
.......
begin
.....
end;

如何在b2中调用b1中的函数back?

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-17

• #2

back 定义为 b1 的局部函数就是为了不让在其它位置调用。
要在 b2 中调用，可以将 back 定义为全局函数或模块内局部函数。

 

Z

zdwjetlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #3

这样的back函数相当于b1的一个局部变量 属于b1自己的 那b2当然访问不到le
你把back放到b1，b2的同等地位来 就可以了

 

B

bgqy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-30

• #4

为什么要把函数的定义放到函数里？第一次见，你把函数的定义放到外头，让b1,b2调用就可以了

 

0

0452

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-17

• #5

多人接受答案了。