unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
//全局变量在这里声明,然后在调用这个变量的单元uses本单元
Form1: TForm1;implementation{$R *.DFM}end.
2。
函数可以单独写在一个单元中,然后再单元的interface下面声明这个函数,在调用的单元uses这个单元
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
//全局变量在这里声明,然后在调用这个变量的单元uses本单元
Form1: TForm1;implementation{$R *.DFM}end.
2。
函数可以单独写在一个单元中,然后再单元的interface下面声明这个函数,在调用的单元uses这个单元
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
//此处可声明全局变量,在用到的单元.pas的implementation下uses 本单元如:uses unit1;
end;var
Form1: TForm1;
//此处可声明全局变量,在用到的单元.pas的implementation下uses 本单元如:uses unit1;
implementation{$R *.DFM}end.
//最好有各公共单元,存放全局变量,用到时引用该公共单元
在其他窗体中的uses下加入该单元