Globale Variable - Definition

[himitsu]

Delphi-Quellcode:

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

var
  DataModuleCommon: TDataModuleCommon;


// DataModuleCommon.dBK

Wenn die DB auch schon existieren soll, dann müßte/könnte man dieses als class var und class property deklarieren und in initialzation der Unit erstellen.