Neue Klasse erstellen mit 2 Klassen als Attribute

[DeddyH]

Ja gut, das spricht meinem Vorschlag ja nicht zuwider. Der einzige Nachteil, den ich bei meiner Lösung sehe, ist etwas Tippaufwand, da man ja mindestens für jede Property, die man "durchreichen" will, einen Getter und einen Setter braucht. Das könnte dann etwa so aussehen:

Delphi-Quellcode:

type
  TSubClass1 = class
  private
    FProp1: SomeType;
  public
    function SomeFunc: SomeOtherType;
    property Prop1: SomeType read FProp1 write FProp1;
  end;
  
  TSubClass2 = class
  private
    FProp2: SomeType;
  public
    procedure SomeProc;
    property Prop2: SomeType read FProp2 write FProp2;
  end;
  
  TMainClass = class
  private
    FClass1: TSubClass1;
    FClass2: TSubClass2;
    function GetProp1: SomeType;
    function GetProp2: SomeType;
    procedure SetProp1(const value: SomeType);
    procedure SetProp2(const value: SomeType);
  public
    function SomeFunc: SomeOtherType;
    procedure SomeProc;
    property Prop1: SomeType read GetProp1 write SetProp1;
    property Prop2: SomeType read GetProp2 write SetProp2;
  end;
  
function TMainClass.GetProp1: SomeType;
begin
  Result := FClass1.Prop1;
end;

function TMainClass.GetProp2: SomeType;
begin
  Result := FClass2.Prop2;
end;

procedure TMainClass.SetProp1(const value: SomeType);
begin
  FClass1.Prop1 := value;
end;

procedure TMainClass.SetProp2(const value: SomeType);
begin
  FClass2.Prop2 := value;
end;

function TMainClass.SomeFunc: SomeOtherType;
begin
  Result := FClass1.SomeFunc;
end;

function TMainClass.SomeProc;
begin
  FClass2.SomeProc;
end;