请给出一段代码，尽量简单。(100分)

A

archonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #1

请指教一下如下情况：
设置一个全局变量，另外设置一个Procedure，格式如下，
Procedure X（var i : integer）；
把Procedure中i算出来的值赋给全局变量，并在其他的Procedure中调用此全局变量，请问怎么写？

 

S

Siva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #2

public
publicdata:integer;

procedure x(var i:integer);//function x(var i:integer):integer;
begin
publicdata:=XXXXX;
end;
////
publicdata := x(i); //x is function

 

A

archonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #3

to Siva:

最后一句位置放在哪里比较合适？
另外 publicdata:=XXXXX;这句对最终输出的 publicdata 的值是否有影响呢 ？

 

G

gyh75

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #4

public
publicdata:integer;

procedure x(var i:integer
begin
.....
publicdata:= i;
end;


其他的Procedure中直接调用publicdata

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #5

public
publicdata:integer;

procedure x(var i:integer
begin
i:=i*i;
.....
end;

调用时：
x(publicdata);

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #6

public
publicdata:integer;
procedure x(var i:integer);//function x(var i:integer):integer;
begin
publicdata:=XXXXX;
end;
//设置全局变量时调用
x(i);
//要使用全局变量时直接引用publicdata就好啦
有什么深意吗？不然多看一点书，拜托

 

B

boot.ini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #7

procedure x(var i:integer);
begin
演算....
全局变量 := 算出来的值
end;

 

A

archonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-25

• #8

问题已经解决，多谢
：）