Globale Variable - Definition

[haentschman]

Hallo alle...

ich bin verwirrt... Entweder zu spät oder überarbeitet.

Ich habe eine Klasse welche über den gesamten Lebenszyklus der Anwendung existiert (Properties). Die einzige Instanz der Klasse soll von allen Formularen "erreichbar" sein. Da sowieso ein DataModule existiert dachte ich rein damit nach folgendem Muster.

Delphi-Quellcode:

.
.
type
  TDataModuleCommon = class(TDataModule)
    .
    .
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModuleCommon: TDataModuleCommon;
  dBK: TdBK;
implementation

{$R *.dfm}

procedure TDataModuleCommon.DataModuleCreate(Sender: TObject);
begin
  dBK:= TdBK.Create;
end;

procedure TDataModuleCommon.DataModuleDestroy(Sender: TObject);
begin
  dBK.Free;
end;

die Frage: Zählt rein Definitionstechnisch die Instanz von dBK als globale Variable ?

Für Anregungen dankbar...