достаточно просто.
Пути я вижу 3, выбери тот который тебе больше всего нравится:
1. в том модуле, где обьявлен твой класс сделай в интерфейсной части глобальную переменную типа твоего класса. В initialize модуля создай экземпляр класса, и присвой ей
2. в том модуле, где обьявлен твой класс сделай глобальную переменную типа твоего класса но в секции implementation. В initialize модуля создай экземпляр класса, и присвой ей. В классе сделай класс функцию (статические в С++) и пусть она возвращает нашу переменную.
3. в том модуле, где обьявлен твой класс в секции implementation сделай глобальную переменную типа твоего класса. В классе сделай класс функцию типа такого:
if YourVar = nil then YourVar:=YourClass.Create;
result:=YourVar;
возможны еще вариации, но ИМХО выходит самый настоящий сингилитон
|