TObjectList<> - Frage

[Zacherl]

Ich glaube du hast da irgendwo noch einen Logikfehler. Sollte es nicht eher so sein:

Delphi-Quellcode:

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

Dann hast du nämlich keinerlei Probleme später bei den konkreten Instanzen folgendes zu machen:

Delphi-Quellcode:

var
  List1: TListe<TErbe>;
  List2: TListe<TNochEinErbe>;
  List3: TListe<TBasis>

Besonders, da du ja sagst, dass du in TListe eh nur Felder aus TBasis verwendest. Dies ist durch das Constraint sehr komfortabel möglich.

[Benmik]

Ja, irgendwie kann ich mich nicht richtig verständlich machen.
Also vielleicht nochmal. Ich habe folgende Situation:

Delphi-Quellcode:

type
  TTyp = class(TObject)
    Var1 : integer;
    Var2 : string;
    Var3 : Boolean;
    Var4 : TBitmap;
    Var5..Var20
  end;

type
  TTyp2 = class(TBasis)
    Var1 : integer;
    Var2 : string;
    Var5 : integer;
    Var6 : string;
  end;

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

Ich brauche nun für eine bestimmte Aufgabe Var1 und Var2 und die dazugehörigen Prozeduren der TObjectlist, aber zusätzlich noch Var5 und Var6. Var5..20 brauche ich nicht. Das alles ist nun in Typ2 realisiert.
Zurzeit ist Typ2 eine abgeleitete Klasse von Typ1. Damit stehen mir die neuen Felder und die gewünschten Prozeduren der TObjectList zur Verfügung, aber ich schleppe Var5..Var20 mit und muss immer den Typecast  Erbe := TErbe(Liste[0]) machen. Wie gesagt, es funktioniert alles, aber ich glaube, dass das besser geht. Die Syntax von  TListe<T: TBasis> = class(TObjectList<T>) kannte ich nicht und kann nur mutmaßen, was dahinter steht.

[DeddyH]

Irgendwie sieht Dein Klassenmodell komisch aus. Sind die Variablen bzw. Felder wirklich in den Ableitungen redeklariert? Wenn ja, wieso? Wenn Deine Objektliste nur auf Felder und Methoden zugreift, die bereits in der Basisklasse deklariert wurden, ist der Typecast unnötig.

[Benmik]

Nein, nein, die Var1 und Var2 wurden bei Typ2 nur zur Verdeutlichung aufgeführt, dass eine Schnittmenge zum Typ1 besteht; in der wirklichen Deklaration fehlen sie natürlich (siehe auch meine Frage und die Antwort von Zacherl), da sie ja schon in der Vorfahr-Klasse Typ1 enthalten sind.
Dass meine Konstruktion nicht optimal ist, will ich gern glauben.
Im Moment sieht es so aus:type Typ1<TObject> type Typ2 = class(Typ1) type Liste = TObjectlist<Typ1> .
Ohne Typecast geht es damit nicht, weil der Compiler meckert, die Liste wär vom Typ1 und die Variable vom Typ2.

[DeddyH]

Welche Variable denn?

[Olli73]

Sollen in "Liste" Objektinstanzen von Typ1 und Typ2 gespeichert werden oder genügt es dir eine Liste1 vom Typ1 und eine Liste2 vom Typ2 zu haben?

[Benmik]

@DeddyH:

Delphi-Quellcode:

var Typ2:TTyp2;
begin
  Typ2 := Liste[0];
end;

Compiler: "E2010: Inkompatible Typen TTyp1 und TTyp2". Eigentlich klar, denn die Liste ist ja als  TObjectlist<Typ1> deklariert

@Olli73: Naja, in Typ1 sind Felder, die auch Typ2 braucht, und die Objektliste für diese Felder Funktionen und Prozeduren bereitstellt, die auch Typ2 braucht.