如定义全局变量？

[hucool]

请问如何定义全局变又如何调用？

谢谢！

MSN:[e-mail]

[hucool]

问题已经解决！
谢谢各位前辈！

[xiaoxiao197821]

窗体名就是全局变量，随便找个多窗体的例题，怎么声明调用看看就知道了

[ygflydream]

在implementation上面

[ygflydream]

用的话直接用就可以了！

[hucool]

以下代码为一个窗体的
procedure TForm1.Button7Click(Sender: TObject);
var
ss:integer;//定义一个变量SS
begin

ss:=0;//变量赋值
table3.Refresh;
table3.First;
while not table3.eof do
begin
ss:=ss+1;
table3.Next;
edit1.Text:=inttostr(ss)+'　条';
end;

end;

procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
begin
//database1.Connected:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table3.First;
progressbar1.Min:=0;
progressbar1.Max:=table3.RecordCount;
此处想调用变量SS，实现progressbar1.max:=ss;可是这样设置程序运行不了！
//////////////////////////////////
while not table3.Eof do
begin
progressbar1.Position:=progressbar1.Position+1;
table3.Delete;
end;
/////////////////////////////////
end;

请教各位，谢谢！

[qiume]

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ss:integer;//定义一个变量SS


implementation

{$R *.dfm}

var
ss:integer;//定义一个变量SS ///这样也可以

[qizhanfeng]

ss:integer;//定义一个变量SS

定义到

type
TForm1 = class(TForm)
private
{ Private declarations }
ss:integer;//定义到这里，其他单元无法访问，本单元可以访问
public
{ Public declarations }
ss:integer;//定义到这里，其他单元也可访问，本单元当然可以访问
end;

[hucool]

楼上的兄弟们，有没有MSN啊？有问题想请教啊！
我的MSN：[e-mail]

[ccbzzp]

FORM.
PUBLIC

[coeltdit]

先看看书吧！

[myling]

先看看书吧