global Variablen, Mehrfachdeklaration

[Nuclear-Ping]

Wenn ich solche "globalen" Variablen brauche, mache ich es ungefähr so:

Delphi-Quellcode:

unit MyGlobals;

interface

type
  ...

const
  ...

var
  ...;
  MyGlobVar: String;

implementation

end.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, ..., MyGlobals;

type
  ...

implementation

procedure TForm1.FormCreate (...);
begin
  MyGlobVar := 'Foo';
end;

...

end.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, ..., MyGlobals;

type
  ...

implementation

procedure TForm2.FormCreate (...);
begin
  ShowMessage (MyGlobVar);
end;

...

end.

Also eine Unit anlegen, in der solche Sachen gesammelt werden (Types, Consts, Vars) und diese Unit dann in den jeweiligen Units einbinden, wo du die Variablen / Typen / ... brauchst.