Wie wäre es mit einer eigenen
Unit?
Delphi-Quellcode:
unit dBKU;
interface
type
TdBK =
class
:
:
end;
function dBK: TdBK;
implementation
var
gdBK: TdBK;
function dBK: TdBK;
begin
Result:=gdBK;
end;
initialization
gdBK:= TdBK.Create;
finalization
gdBK.Free;
end.
So ist keine projekt-globale-Variable vorhanden.