请教！如何在一个过程中使用另一个过程中的参数？(50分)

Z

zhengv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #1

建了个过程。
procedure a1
a:integer;
begin
a:=1+1;
end;
如何在直接调用过程参数，不用public变量声明？
procedure a2
b:integer;
begin
b:=a1.a+1;
end;
end.

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #2

您这个想法很奇怪,不知道到底要做什么??
为什么不写在一个过程里呢?
要不就用参数形式传递,都可以.
过程又不是对象,后面不能加点,只能带参数

 

Z

zhengv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #3

不懂才问！请给个例子。

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #4

不可以

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #5

你总得告诉我你要做什么才行吧!老大!
照你的上面的写法我只能猜测
function a1(aint : integer): integer;
begin
inc(aint);
end;
procedure a2(x: integer);
var
b : integer;
begin
b := a1(x)+1;
//接下来,b要用来干点别的才行,因为是局部变量,其作用要在过程里面体现出来;比如:
showmessage(inttostr(b));
//要不然,把b增加多少又有什么意义?????
end;
祝你好运

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #6

把你的a1寫成對象吧.
一頭霧水!

 

M

MrMengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #7

//试试
procedure a1
procedure a2
b:integer;
begin
b:=a+1;
end;
a:integer;
begin
a:=1+1;
end;
end.

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #8

>>MrMengyi 你寫錯了.
var
a:Integer
Procedure .........
............

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #9

不可能这样作

 

M

MrMengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #10

Richard3000
谢谢更正
随手写的
也没有编译测试

 

Y

youou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #11

不管可不可以实现。。
建议不要这么写。。。
这样写的程序不好啊。。
模块化程序设计中所讲的提高模块独立性。应该降低耦合，提高内聚
你这样耦合度也太大了吧~~

 

M

MrMengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #12

呵呵
我是把整个作为了一个模块
楼主要这样的效果
就只能如此了
我一般是不会这么用的

 

Z

zhengv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #13

高手如云.谢谢大家！