Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.147 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Cleancode, Dependency Injection oder wie stelle ich mich richtig an

  Alt 13. Mai 2014, 14:26
Eine einfache Lösung wäre folgende:

Delphi-Quellcode:
type
   TControlSettings = class
   private
     { Private-Deklarationen }
   public
     { Public-Deklarationen }
     class var UserId: Integer;
     procedure SaveSettingstoDatabase;
   end;

...

procedure TFormMain.FormCreate(Sender: TObject);
begin
  fUserID := GetGlobalUserID; //globale User ID wird von wo auch immer gesetzt bei Programmstart
  TControlSettings.UserId := fUserId;
end;
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat