unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;        //  全局变量(其它单元内也可存取)
  globalvar: string;    //  全局变量(其它单元内也可存取)implementation
var localvar: integer;  // 全局变量(限本单元内存取)
{$R *.DFM}end.

解决方案 »

  1.   

    2 stockwalker():
    你来得可真早!
      

  2.   

    应用程序的全局变量一般是在对应Project的主窗体单元的Public里定义,而每个Unit的全局变量
    应该在Private里定义。这是最简单的、直接的做法。
      

  3.   

    我再说一个,分数也分给我一点吧!呵呵..
    在public中也可用,引用: 类名.变量名
      

  4.   

    完整的做法是:
    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
    type
      TForm1 = class(TForm)
      private
        { Private declarations }
        v:string;                 //form内的全局变量,直接调用
      public
        { Public declarations }
        v2:string;                //应用程序内的全局变量,在其他窗体内这样调Form1.v2
      end;
    var
      Form1: TForm1;        
      V3: string;           //应用程序的全局变量,直接调用
    implementation
    var V4: integer;        // Form内的全局变量
    {$R *.DFM}
    end.