🚀 go-pugleaf

W dniu czwartek, 8 marca 2018 15:08:52 UTC+1 użytkownik wloochacz napisał:
> > No to ...pisz ;-)
> Popieram.
> Bo szczerze to ja nie do końca rozumiem co masz i co chcesz mieć.

Wydawało mi się to jasne i proste to co napisałem.

Dobra - jeszcze raz, ale wyjaśnienie będzie dłuuugie.

Chce mieć w aplikacji jedną klasę Core, z której będzie dostęp do wszystkiego w tej aplikacji, czyli konfiguracji, logiki, fabryki okien, toolsow itd. itp. Singleton. Tak żeby w kodzie aplikacji można było do wszystkiego mieć dostęp pisząc np. coś takiego. Core.Connection.GetNewConnection.ExecSQLScalar.
Dlaczego tak? Bo biorąc wszystko pod uwagę, tak jest najprościej i najbardziej przejrzysto :)
Ale żeby nie było za trywialnie, chcę żeby z samej definicji tej klasy można też było się odwoływać do każdego miejsca w tej klasie, czy to poprzez klasę rodzica, czy przez Core samo z siebie.
Czyli żeby każda klasa która jest w Core miała w sobie przynajmniej wie rzeczy:
Core <- dostęp do głównej klasy Core
i Parent <- dostęp do klasy w której została stworzona ta w której w danym momencie jesteśmy.
Ogólnie każda klasa w Core ma być dziedziczona z klasy bazowej która ma właśnie zdefiniowane te dwie powyżej (Core i Parent).
Mam nadzieję że to jasne.

W tej chwili mam to załatwione przez class helpera :) 8-10 lat temu wydawało mi się to dobre. W sumie działa, ale chciałbym się poduczyć interfejsów, bo na razie to jest stosowałem ale do trochę czegoś innego.

Teraz pokaże jak to mam w kodzie, bo jeśli tamto było nieczytelne, to może to coś wyjaśni:

klasa bazowa: FW.Classes.Core
  TCoreClass = class(TObject)
  strict private
    _CoreObj: TObject;
  public
    constructor Create(aCore: TObject);
    destructor Destroy; override;

    property CoreObj: TObject read _CoreObj write _CoreObj;
  end;

helper: FW.Helpers.Core
uses
  FW.Classes.Core
  ,FW.Core
  ;

type
  TCoreClassHelper = class helper for TCoreClass
    function Core: TCore;
  end;

implementation

function TCoreClassHelper.Core: TCore;
begin
  if assigned(CoreObj) then
    result := CoreObj as TCore
  else
    result := nil;
end;
 
Main unit: FW.Core
uses
  FW.Classes.Core
  ,FW.Connection.Main
  ,FW.Settings.Main
  ,FW.Tools.Main
  ,...  
;

type
  TCore = class(TCoreClass)
  strict private
    fConnection: TConnection;
    fSettings: TSettings;
    fTools: TTools;
  public
    destructor Destroy; override;

    procedure Initialize;
    function DebugModeOn: boolean;

    property Connection: TrisConnection read ConnectionGet write ConnectionSet;
    property Settings: TrisSettings read SettingsGet write SettingsSet;
    property Tools: TrisTools read ToolsGet write ToolsSet;
  end;

gdzie np. ConnectionGet wygląda tak:
function TCore.ConnectionGet: TConnection;
begin
  ConnectionCheck;
  result := fConnection;
end;
procedure TCore.ConnectionCheck;
begin
  if not Assigned(fConnection) then
    fConnection := TConnection.Create(Self);
end;

connection: FW.Connection.Main
uses
  FW.Classes.Core
  ,FW.Classes.MSSQLConnection
  ;

type
  TConnection = class(TCoreClass)
  strict private
    fMain: TMSSQLConnection;
  public
    destructor Destroy; override;
  end;

implementation

uses
  FW.Helpers.Core
  ;


I właśnie chodzi o to uses tutaj (FW.Helpers.Core), to mi daje to, że z każdej klasy która wywodzi się w TCoreClass mogę użyć konstrukcji Core.Connection... cos tam coś tam.

To wszystko powyżej jest poobcinane więc mam nadzieję, że nie uciąłem czegoś co jest istotne :)

I jaki jest problem?

Chciałbym mieć dalej tę samą funkcjonalność ale napisaną dzisiaj :) Dlatego moje pytanie w sumie nie jest jak konkretnie to zrobić, ale jaką drogą iść i jakie macie Wy pomysły na rozwiązanie tego problemu.

Zresztą ten cały "moloch" jest pochodną dyskusji nad frameworkami prowadzonymi w wloochaczem "pare" dobrych lat temu :)

pozdrawiam,
Przemek O.