Design-Frage "Klassen in anderen Klassen benutzen"

[angos]

... und ich Volldepp hab die Funktion nach 7 Jahren immer noch nicht selber entdeckt.

Nunja, dankeschön !

Edit: Das ding ist schon ziemlich genial. Das macht aus dem hier:

Delphi-Quellcode:

  TTestListe = class(TObjectList)
  private

  public
    procedure Machwas(s: String; i: Integer);
    function HastDuWasGemacht: Boolean;

    property Items[ndx: Integer]: TTest;
    property Irgendwas: String;
    property NurLesen: string read GetNurLesen;
    property LesenUndSchreiben: string read GetNurLesen write FNurLesen;
    constructor Create(s: String); override;
  end;

Das hier:

Delphi-Quellcode:

  TTestListe = class(TObjectList)
  private
    FNurLesen: string;
    FIrgendwas: String;
    function GetItems(ndx: Integer): TTest;
    function GetNurLesen: string;
    procedure SetIrgendwas(const Value: String);
    procedure SetItems(ndx: Integer; const Value: TTest);

  public
    procedure Machwas(s: String; i: Integer);
    function HastDuWasGemacht: Boolean;

    property Items[ndx: Integer]: TTest read GetItems write SetItems;
    property Irgendwas: String read FIrgendwas write SetIrgendwas;
    property NurLesen: string read GetNurLesen;
    property LesenUndSchreiben: string read GetNurLesen write FNurLesen;
    constructor Create(s: String); override;
  end;

implementation

{ TTestListe }

constructor TTestListe.Create(s: String);
begin
  inherited;

end;

function TTestListe.GetItems(ndx: Integer): TTest;
begin

end;

function TTestListe.GetNurLesen: string;
begin
  Result := FNurLesen;
end;

function TTestListe.HastDuWasGemacht: Boolean;
begin

end;

procedure TTestListe.Machwas(s: String; i: Integer);
begin

end;

procedure TTestListe.SetIrgendwas(const Value: String);
begin
  FIrgendwas := Value;
end;

procedure TTestListe.SetItems(ndx: Integer; const Value: TTest);
begin

end;

end.

Na, das nenn ich doch mal feine Arbeitserleichterung. Also nochmals danke