送分哦：如何定义一个公共变量？(50分)

N

njgyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #1

一程序中用到多个Form：Form1,Form2,...
其中Form1中有一变量Edit1并被赋值，
现想在其余Form中直接调用Edit1的值,
请问此Edit1该如何定义？

 

L

liukeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #2

找本DELPHI入门的书好好看看

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #3

在interface部分声明变量能够被其它单元用到,但想用的单元要uses 本单元.
声明:
var
Form2: TForm2;
aaaaa:integer;

使用:
....
implementation
uses Unit2;
//form2的单元.
..
aaaaa:=0;
//注意不要重名啊.

 

D

datoncg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #4

1若在本单元中定义全局变量，使其在本单元中都可用到，可以这样定义
implementation
VAR
TEST： STRING；
......
2若在整个应用程序中定义全局变量，使其在各单元中都可用到，可以这样定义
unit test
interface
.....
var
test: string
...
implementation
但在别的单元中要用到该变量，要在该单元中(test1)的
unit test1
interface
.......
implementation
uses test
这样就可以在test1中用到test这个变量

 

Z

zhangc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #5

太简单了：
uses form1;
a:=form1.edit1.text;

 

N

njgyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #6

To:menxin 谢谢！公用变量我明白了，那如果是Form1中的组件Edit1:TEdit呢？如何使之成为公用组件，即在其它Form中也可调用组件Edit1的值？

 

N

njgyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-21

• #7

谢谢各位！