🚀 go-pugleaf

Hej,

Zastanawiam się jak byście rozwiązali taki problem:

Ma być jedna klasa (Singleton) główna - tzw Core.
Ma w sobie mieć inne klasy ale zaimplementowane w taki sposób, żeby z każdej z nich można było wywołać Core.KlasaX.KlasaY ale na zasadzie deklaracji klasy, a nie odniesienia do jej fizycznego wystąpienia.

Żeby uprościć to co chce osiągnąć:

unit CoreMain;

uses
CoreConnection
,CoreLogic
,CoreTools
;

TCoreMain = class
Connection: TCoreConnection;
Logic: TCoreLogic;
Tools: TCoreTools;
end;

unit CoreConnection;

uses
CoreMain
;

TCoreConnection = class
Core: TCoreMain
end;


unit CoreLogic;

uses
CoreMain
;

TCoreLogic = class
Core: TCoreMain
end;

unit CoreTools;

uses
CoreMain
;

TCoreTools = class
Core: TCoreMain
end;

1. Oczywiście to powyżej uproszczony przykład, ale mniej więcej pokazuje co chciałbym osiągnąć.
2. Zrobienie tego w ten sposób spowoduje błąd Circular Unit Reference, a co ciekawe w Delphi 10.2 nie pojawia się ten błąd ale wiele mówiący F2046: Out of memory :P
3. Chciałbym żeby przez wpisanie Core w dowolnej klasie mieć dostęp do tego co deklaruje sobie TCoreMain, ale nie przez cast typu np TObject.

Tak się nad tym zastanawiam jak to zrobić ładnie i dlatego proszę Was o jakieś propozycje. Żeby nie było, ja coś takiego mam działającego :) i napiszę na koniec jak to zrobiłem. Niemniej jest to w bardzo starej apce, którą chciałbym częściowo przepisać na nowo stąd moje pytanie, bo być może jest "ładniejszy" sposób na wykonanie tego.

pozdrawiam,
Przemek O.