TCollection und Vererbung?

**Marco Steinebach**

Hallo zusammen,
Ich habe ein Verständnis-Problem und bitte um Hilfe.
Ich habe, als Beispiel:

Code:

			TBasicItem = class(TCollectionItem)

  private

    fE1: integer;

    fE2: string;

  public

    property e1: integer read fE1 write fE1;

    property e2: string read fE2 write fE2;

end;

Davon Abgeleitet soll es mehrere Klassen geben, z.B.:

markieren

Code:

			TAddressItem = class(TBasicCollectionItem)

  private

    fE3: boolean;

  public

    property e3: boolean read fE3 write fE3;

end;

Soweit, so einfach.

In einer Grundklasse, abgeleitet von TCollection, will ich die Methoden speichern, die für alle Nachfahren auch gelten können, und hier wird's bunt, der berühmte Wald, ihr wißt schon.

markieren

Code:

			TBasicCollection = class(TCollection)

  public

    entries[i: integer]: TBasicCollectionItem read getEntry write setEntry; default;

end;

Muss ich die Entry-Eigenschaft überhaupt definieren, oder hat TCollection schon sowas, und ich hab's nicht gefunden?
Bislang hab ich die passenden Getter und Setter wie folgt deklariert:

markieren

Code:

			function TBasicCollection.getEntry (i: integer): TBasicCollectionItem;

begin

  result := inherited items[i] as TBasicCollectionItem;

end;

procedure TBasicCollection.setEntry (i: integer; a: TBasicCollectionItem);

begin

  inherited items[i] := a;

end;

So kann ich also mit
c[i] gleich auf ein bestimmtes Item zugreifen.
Was passiert aber nun, wenn ich von TBasicCollection eine weitere Klasse ableite, sagen wir:

markieren

Code:

			TAddress = class (TBasicCollection)

...

end;

Die hat als Einträge dann lauter TAddressItem. Was passiert jetzt mit meinen Gettern/Settern?
Und swenn meine TBasicCollection eine Methode bekommt, die auf die Entries zugreifen soll, beispielsweise sie speichern, woher weiss dann Delphi, ob nun TAddressItem oder TBasicItem gemeint ist?

Kann mir mal jemand auf die Sprünge helfen, bitte?

Herzlich grüßt
Marco

TCollection und Vererbung?

TCollection und Vererbung?

Forumregeln