TObjectList<> - Frage

[Benmik]

Ich habe eine TObjectList<TTyp1> mit einer Reihe von Prozeduren und Funktionen.
Ich würde diese Liste gern für einen TTyp2 verwenden, ohne den ganzen Code duplizieren zu müssen.
Ich würde darauf achten, dass TTyp2 alle Elemente von TTyp1 enthält, auf die sich die Prozeduren und Funktionen der Objektliste (z.B. Sortieren und Suchen) beziehen.

Geht sowas? Ich fürchte mal stark, mit Interfaces, insbesondere nach Lektüre dieses Beitrages. Zum einen benötige ich aber OwnsObjects und zum anderen gelingt es mir nicht, eine Liste zu bauen, der ich dann ein Interface zuordnen könnte, das wiederum verschiedene Objektklassen aufnehmen könnte. Oder ist der Ansatz verkehrt oder geht es anders?

[Zacherl]

Bin nicht sicher, ob ich dein Anliegen richtig verstanden habe, aber das klingt für mich, als könntest du dafür eine generische Klasse erstellen. Den generischen Typ beschränkst du auf ein eigenes Interface, welches alle erforderlichen Operationen unterstüzt. Typ1 und Typ2 müssen dann nur noch das Interface implementieren.

Alternativ ohne Interfaces und dafür mit gemeinsamer Basisklasse.

[Benmik]

Mensch, Zacherl, ein paar Worte und schon wird es lichter im Hirnkasten!
Mein Fehler war, dass ich versucht hatte für die Objektliste ein Interface zu implementieren, während es ja genügt, dies für die Objekte zu tun.

Jetzt bekomme ich allerdings das im Beitrag auf SO angesprochene Problem, die Implementierung der Objektliste geht nur mit Klassen, nicht mit Interfaces. Ich könnte eine TList implementieren und das OwnsObjekt als zusätzliches Feld mit aufnehmen, müsste dann die Freigabe selbst übernehmen. Ginge wohl auch noch.

Alternativ Basisklasse - eine Oberklasse erstellen und davon die benötigten Klassen ableiten? Hast du dafür ein kurzes Beispiel?

[Zacherl]

Ganz normale Vererbung halt:

Delphi-Quellcode:

type
  TBaseClass = class(TObject)
  public
    procedure CommonTest;
  end;

  TClass1 = class(TBaseClass)
  public
    procedure OnlyForClass1;
  end;

  TClass2 = class(TBaseClass)
  public
    procedure OnlyForClass2;
  end;

Und die verwaltende Klasse dann entsprechend:

Delphi-Quellcode:

type
  TManagerClass<T: TBaseClass> = class(TObject)
  public
    FList: TObjectList<T>;
  end;

Innerhalb des Codes solltest du dann dank des Constraints ohne Probleme auf alle Eigenschaften von TBaseClass zugreifen könne.

[Benmik]

Tja, hab noch nicht soviel vererbt...

Ist ja völlig einfach. Kleine Frage vor allem nach der Lektüre dieses Beitrags:
Was passiert eigentlich wenn ich Felder in der abgeleiteten Klasse wiederhole?

Delphi-Quellcode:

type
  TBasis = class(TObject)
    Var1 : integer;
    Var2 : string;
  end;

type
  TErbe = class(TBasis)
    Var1 : integer;
    Var2 : string;
  end;

type
TListe = class(TObjectList<TBasis>)
public
  procedure SortiereVar1(Wert:integer)
end;

Nach meinen Versuchen hat das keine Auswirkungen; wenn ich nach Var1 sortiere, funktioniert das. Kann man sowas straflos tun?

[Zacherl]

Zitat von Benmik:

Was passiert eigentlich wenn ich Felder in der abgeleiteten Klasse wiederhole?

Die Felder werden verdeckt. Wenn du also z.b. eine Instanz von TErbe erstellst und dann Var1 den Wert 42 zuweist, ist TBasis.Var1 immer noch 0. Da dies eine ziemlich häufige Fehlerquelle ist, würde ich dir davon definitiv abraten (macht auch wirklich selten Sinn). Wenn du die Felder in TErbe einfach weglässt, kannst du ja trotzdem auf die vererbten Felder aus TBasis zugreifen, auch wenn deine Instanz vom Typ TErbe ist.

Delphi-Quellcode:

var
  T1: TBaseClass;
  T2: TClass2;
begin
  ..
  // Kompiliert
  T1.CommonTest;
  // Kompiliert auch
  T2.CommonTest;
  T2.OnlyForClass2;
  ..

Bezüglich deines Beispiels würde ich dir btw. auf jeden Fall raten nicht direkt von TObjectList<T> abzuleiten, sondern eine dedizierte Klasse zu erstellen, welche lediglich ein Feld vom Typ TObjectList<T> beinhaltet. So wie in meinem Beispiel weiter oben.