Zitat von
shmia:
Ich würde die Add() Methode nicht überschreiben, sondern eine neue Methode (z.B. AddObject) einführen.
Damit umgehst du die Probleme.
In wie fern denn? Wir sind schon bei einer TObjectList, somit ist Add() schon für Objekte. Du willst nun AddObject() deklarieren die dann zu dem Objekt noch ein Objekt annimmt? In wie fern umgeht man damit die Probleme?
Und nun zu dem Problem: Du kannst Add() neu implementieren, aber nicht überschreiben, da nicht als dynamisch oder virtuell deklariert, ist ok. Aber das ist nicht so schlimm, lass einfach das ReIntroduce weg (ist eh nicht virtuell oder dynamisch, somit besteht überhaupt kein Anlass dafür) und beseitige das eigentliche Problem an der folgenden Stelle:
Zitat von
Rainer Wolff:
Delphi-Quellcode:
procedure TAnotherclass.Tuwas(ObjectList: TObjectList);
MyObject:=TMyObject.Create;
Objectlist.Add(MyObject);
Du übergibst die Listenklasse mit deren Basisklasse. Da du Add() nicht überschreiben kannst (höchstens verdecken, etc), wird deine abgeleitete Add() Funktion niemals aufgerufen, ausser du spezialisierst die Klasse zuvor oder du übergibst diese schon in der spezialisierten Form. Also entweder so:
Delphi-Quellcode:
procedure TAnotherclass.Tuwas(ObjectList: TMyObjectList);
MyObject := TMyObject.Create;
Objectlist.Add(MyObject);
Oder halt spezialisieren:
Delphi-Quellcode:
procedure TAnotherclass.Tuwas(ObjectList: TObjectList);
MyObject := TMyObject.Create;
( Objectlist As TMyObjectList ).Add(MyObject);