Cleancode, Dependency Injection oder wie stelle ich mich richtig an

[stahli]

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;