delphi全域性變數的定義與賦值主要有下面幾種方法：

1.

全域性變數的初始化

在最後結束的end.之前,增加initialization關鍵字,然後加入對全域性變數的初始化,這樣就可以初始化全域性變量了.不論在interface還是在implementation部分的全部變數,都可以這麼來初始化

//省略前面的interface,uses,type.

var
i: Integer;

implementation

var
j: Integer;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(i);
Inc(j);
Form1.Caption := IntToStr(i) + ‘ ‘ + IntToStr(j);

end;

initialization
i := 100;
j := 200;
end.

2. 新建一個公用單元，專門放置公用全域性變數唄
unit untCommon;

interface

var
v1:integer;
v2:string;

end.
-----------------
unit unit1;

interface

uses
windows,................,untCommon ; //在每個需要使用v1、v2變數的單元中引用上面那個單元untCommon就可以了

3.跟 一般變數賦值差不多！

unit Unit1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
/////////////////////////////
//在 implementation上定義的全域性變數在所有單元可見
var teststr:string;

implementation

{$R *.dfm}

//////////////////////////////
//在implementation下定義的只對本單元可見
var teststr1:string;

procedure TForm1.Button1Click(Sender: TObject);
begin
//////////////////////
//對teststr賦值
teststr := ‘我是對所有單元都可見的‘;
showmessage(teststr);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
/////////////////////
//對teststr11賦值
teststr1 := ‘我只對本單元可見‘;
showmessage(teststr1);
end;

end.