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.