TObjectList<> - Frage

[himitsu]

Mit Klassen geht es am Problemlosesten, vorallem die Einschränkung auf einen bestimmten Grundtypen.
Auch allgemein das Constraint auf Objectinstanzen (class) geht, auch wenn man da dann praktisch nur den Grungconstructor (parameterloses Create) und den Destructor ohne verbiegen nutzen kann.
http://docwiki.embarcadero.com/RADSt...isierte_Typen)

Aber sowas wie "nummerische typen", "ordinale typen", alle strings, alle chars oder sowas kann man vergessen.

[Benmik]

Frohe Ostern!
Funktioniert alles soweit gut, eine kleine - eher kosmetische - Störung gibt es aber:
Die Objektliste ist mit dem Typ TBasis konstruiert. In TBasis sind alle Felder, auf die sich die Such- und Sortierfunktionen beziehen.
Wenn ich jetzt mit mit einer Instanz von TErbe arbeiten will, muss ich immer eine Typumwandlung TErbe(Objektliste[i]) vornehmen. Lässt sich das beseitigen?

PS: Und noch 'ne Frage: Wenn ich das doch über ein Interface realisieren würde, dann müsste doch jede Klasse die Prozeduren und Funktionen dieses Interfaces implementieren. Was wäre denn damit gewonnen? Ich möchte doch gerade diese Prozeduren nur einmal implementieren und gemeinsam nutzen.

[Olli73]

Zitat von Benmik:

Die Objektliste ist mit dem Typ TBasis konstruiert. In TBasis sind alle Felder, auf die sich die Such- und Sortierfunktionen beziehen.
Wenn ich jetzt mit mit einer Instanz von TErbe arbeiten will, muss ich immer eine Typumwandlung TErbe(Objektliste[i]) vornehmen. Lässt sich das beseitigen?

Wenn in TBasis alle benötigten Properties (besser als public Felder) und Methoden deklariert sind, musst du nicht casten.

Brauchst du Methoden, die es nur in einem der TErbe gibt, musst du entweder casten oder zwei Objektlisten mit dem jeweiligen TErbe erstellen.

[Benmik]

Folgende Konstruktion:

Delphi-Quellcode:

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

type
  TErbe = class(TBasis)
    Var3 : integer;
    Var4 : string;
  end;

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

var Erbe:TErbe; Liste:TListe;
Erbe := Liste[0];

Das geht nicht, weil die Liste vom Typ TBasis und nicht TErbe ist. Mit Erbe := TErbe(Liste[0]); geht es.

[DeddyH]

Wieso deklarierst Du die Variable als TErbe, wenn Du nur auf Felder von TBasis zugreifst?

[Benmik]

TErbe hat gegenüber TBasis zusätzliche Felder, die ich benötige. Alle Felder, auf die die Prozeduren und Funktionen von TListe zugreifen, sind aber in TBasis enthalten. Sie werden auch für TErbe benötigt.

[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.