在DELPHI中怎么设置全局变量

Posted 2023-03-28

在 delphi 语言里，设置全局变量有以下办法：

1、在单元文件的 implementation 节之上定义，如以下代码所示例：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
     Private declarations 
  public
     Public declarations 
  end;

var
  Form1: TForm1;
  
  //在 implementation上定义的全局变量在所有单元可见
  teststr:string;

implementation

$R *.dfm

//在implementation下定义的只对本单元可见
var teststr1:string;

2、如果全局的东西比较多，比如一些公有函数、变量、常量等，可以专门放到一个公共的单元文件中，然后，在 uses 小节里引入该文件。

示例如下：

定义公共单元：

unit Common;

interface

var
   g_v1:integer;
   g_v2:string;

end.

调用示例：

unit unit1;

interface

uses
windows,common;  //在每个需要使用g_v1、g_v2变量的单元中引用上面那个单元common就可以了

implementation

//uses common; //有时候需要放到这节的 uses 下面。 参考技术A 在 public里声明变量，然后uses 该单元，就可以调用了