建一个公共单元public.unitvar
 ......

解决方案 »

  1.   

    unit Unit2;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
      TForm2 = class(TForm)
      private
        { Private declarations }
      public
        .....................//在此申明就可
        { Public declarations }
      end;var
      Form2: TForm2;implementation{$R *.DFM}end.
      

  2.   

    可以在一个无窗体的单元中定义一个变量,然后在使用该变量时,在执行部分用USES填写该单元的名称即可。
      

  3.   

    1.新建一个单元文件命名为:unt_gl;
    2.
    unit unt_gl
    interface
     
      //全局变量定义;
       x:integer;
      //全局函数声明;
    implementation
      全局函数定义;
    end.
    3. 另一个单元文件中:
    interface
    uses
      unt_gl.....
    也可在
    implementation
    uses
      unt_gl.....
      

  4.   

    interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
      TForm2 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form2: TForm2;
    .....................//我是在这申明的
        
    implementation{$R *.DFM}end. 
      

  5.   


    unit UPublic;interfaceuses
      Windows, Messages, SysUtils, Classes, Controls,Consts, Graphics,Dialogs,
      DBCtrls, StdCtrls, ExtCtrls, ComCtrls, DBTables,UFm_Wait,Forms,DB;var __Ksbm,__Ksmc,__HospitalName,__Czyxm,__PCNO,__HospitalBM,__AppName:String;
        __SBSXH,__SBJYSXH,__SBSJPH,__SBGRBM,__SBKH:String;//
      

  6.   

    新建一个单元newunit.pas,不要窗体.
    在该单元中,声明pubic变量就行了
      

  7.   

    DELPHI有个datamodule窗体,没有界面,可专用放置变量、函数、或其它不用显示的组件,你可以建立一个,并在需要引用的窗体代码里引用。可以设置该窗口在程序一运行即自动创建。
      

  8.   

    声明多处引用的变量,并不一定非得是全局变量;只要声明该变量所在的单元在其他单元使用该变量时一直存在,即该单元已Create,但还未Destroy。
    你的软件可能要有一个主窗体吧?只要其他单元引用主窗体单元,用FormMain.yourvar(在主窗体的public部分声明)或yourvar(在主窗体的var部分声明)就可以了!
    图例:----------------------------
          |  Unit main;               |
          |  ……                     |
          |  声明yourvar              |
          | --------------------      |
          | | Unit unit1;      |      |
          | | ……             |      |
          | | use main;        |      |
          | | ……             |      |
          | | 引用yourvar      |      |
          | --------------------      |
          | ……                      |
          ----------------------------- 
          窗的跨度表示存活期!