Zuerst die zweite
Unit mit der globalen Variable. Der einfachheitshalber habe ich sie bereits in der initialization (also beim Programmstart) zugewiesen. Du kannst es auch anders machen.
Delphi-Quellcode:
unit Unit2;
interface
var
GlobaleVariable:
String;
implementation
initialization
GlobaleVariable := '
Hallo Welt!';
end.
Wichtig in Unit2: die globale Variable muß im interface-Teil deklariert sein, nicht in implementation.
Nun die Unit1:
Delphi-Quellcode:
implementation
{$R *.dfm}
uses
Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GlobaleVariable);
end;
Nicht vergessen die Unit2 unter uses einzutragen.
Natürlich kannst du auch aus Unit1 einen Wert zuweisen:
Delphi-Quellcode:
implementation
{$R *.dfm}
uses
Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GlobaleVariable);
GlobaleVariable := 'Nun die Fortsetzung: Hallo Welt 2.0!';
ShowMessage(GlobaleVariable);
end;