Einzelnen Beitrag anzeigen

Ralle1

Registriert seit: 2. Nov 2011
47 Beiträge
 
Delphi XE3 Professional
 
#6

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

  Alt 13. Mai 2014, 14:18
Delphi Version XE3.

Hier ein kleines Codebeispiel (ich war davon ausgegangen, dass dies nicht mehr Aussagekraft hat, als mein engehender Text).
Den realen Code kann ich aufgrund des Umfangs schlecht hier unterbringen:

Delphi-Quellcode:
type
  TFormMain = class(TForm)
    PageControlMain: TMyPageControl;
    TabSheet1: TMyTabSheet;
    TabSheet2: TMyTabSheet;
    TabSheet3: TMyTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  FormMain: TFormMain;
  fUserID : integer; //globale User ID

implementation

{$R *.dfm}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  fUserID := GetGlobalUserID; //globale User ID wird von wo auch immer gesetzt bei Programmstart
end;

(******************************************************************************)

type
  TMyPageControl = class(TComponent)
  private
    { Private-Deklarationen }
    Settings : TControlSettings;
  public
    { Public-Deklarationen }
  end;

(******************************************************************************)

type
  TControlSettings = class
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure SaveSettingstoDatabase;
  end;


implementation

procedure TControlSettings.SaveSettingstoDatabase;
begin
  //Hier wird die globale UserID benoetigt
end;

(******************************************************************************)
  Mit Zitat antworten Zitat