Forum: Object-Pascal / Delphi-Language
Delphi
by Rainer Wolff,
1. Apr 2008
So ähnlich hatte ich das inzwischen auch gelöst.
TMyAnotherClass = class(TAnotherClass)
procedure TuWas(ObjectList: TMyObjectList)
end
procedure TMyAnotherclass.Tuwas(ObjectList: TMyObjectList);
MyObject:=TMyObject.Create;
Objectlist.Add(MyObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by Rainer Wolff,
1. Apr 2008
overriden kann ich aber nicht, da Add in TObjectlist nicht als virtuell markiert ist
Rainer
Forum: Object-Pascal / Delphi-Language
Delphi
by Rainer Wolff,
1. Apr 2008
Irgendwie steh ich bei der Vererbung grad auf dem Schlauch.
Ich habe eine Klasse von TObjectlist abgeleitet und (unter anderem) die Add-Methode überschrieben.
TMyObjectList = class(TObjectList)
function Add(AObject: TMyObject): Integer;reintroduce; virtual;
end;
function TMyObjectList.Add(AObject: TMyObject): Integer;
begin