在Private中定义的是本窗体的变量
在Public中定义的是别的窗体可以调用的窗体变量
下面的Var中定义的是就是全局变量
一般都是只有象MainForm          : TMainForm;这样一句
那么MainForm就是一个全局变量
在这里定义就可以了就这么多,结贴吧!

解决方案 »

  1.   


    type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;
      All_Dev:integer;//只要放在这个位置就可以了implementation{$R *.dfm}end.
      

  2.   

    public
    All_Dev:integer//引用加窗体
        { Public declarations }
      end;var
      Form1: TForm1;
      All_Dev:integer;//引用不加窗体;
    implementation
      

  3.   

    在interface下定义,然后用它的单元use这个unit就可以了
      

  4.   

    type
      TForm1 = class(TForm)
      private
        { Private declarations }
        //本窗体中的全局变量,为私有,其他窗体中不能引用
      public
        { Public declarations }
        //其他窗体中可以引用的变量
      end;var
      Form1: TForm1;
      //这儿可以定义本窗体中的全局变量implementation{$R *.dfm}var
      i:integer;//这样也可以定义本窗体中的全局变量procedure ......
    ......
    end.