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...
