Wie benutze ich TCollection?

[Blackthorne]

Hallo Zusammen,

Ich möchte TCollection Items vom Typ TWaveItem zuweisen.

Allerdings hat die "Add" Prozedur von TCollection noch keine Parameter, mit denen ich das Item
einfügen kann.
Also hab ich mir die Klasse abgeleitet:

Delphi-Quellcode:

TWaveCollection  = class(TCollection)
      public
         procedure Add(item: TWaveItem);
   end;

Implementation:

Delphi-Quellcode:

procedure TWaveCollection.Add(item: TWaveItem);
begin
   Add(Pointer(item));
end;

Ich hab also versucht, die Methode "add" dahingehend zu ändern, damit ich meinen Parameter bekomme.
Leider funktioniert es so absolut nicht

Ich denke, mir fehlt irgendwie das Verständnis.
Kann mir jemand helfen?

MfG,
Blackthorne

[maximov]

Moin,

die add methode der collection liefert immer objekte der klasse, welche beim erstellen der collection angegeben wurde. Bei dir theoretisch tWaveItem. Also kannst einfach casten:

result := (collection.add as TWaveItem)

[Blackthorne]

Danke

So funktioniert es...

MfG,
Blackthorne