Cleancode, Dependency Injection oder wie stelle ich mich richtig an

[TiGü]

Einfach in verschiedene Units aufteilen?!?

Delphi-Quellcode:

unit Component;

interface

uses
  System.Classes,
  SettingsSaver;

type
  TMyPageControl = class(System.Classes.TComponent)
    private
      FSettings : TControlSettings;
  end;

implementation

end.

Delphi-Quellcode:

unit SettingsSaver;

interface

uses
  System.Classes;

type
  TControlSettings = class(TObject)
  strict private
    type
      TYourDatabase = class(TObject)
        function Save(AUserID : Integer) : Boolean;
      end;
  private
    FDatabase : TYourDatabase;
  public
    function SaveSettingstoDatabase : Boolean;
  end;

implementation

uses
  User;

function TControlSettings.SaveSettingstoDatabase : Boolean;
begin
  Result := FDatabase.Save(User.GetUserID)
end;

function TControlSettings.TYourDatabase.Save(AUserID : Integer) : Boolean;
begin
  Result := AUserID > 0;
end;

end.

Delphi-Quellcode:

unit User;

interface

function GetUserID : Integer;

implementation

function GetUserID : Integer;
begin
  Result := 1234;
end;

end.