- type
- IMyInterface = interface (IInterface)
- ...
- End;
- TMyObject = class(TInterfacedObject)
- procedure Update; virtual; abstact;
- ...
- End;
- TMyInterfacedObject = class (TMyObject, IMyInterface)
- procedure Update; override;
- ...
- End;
- procedure TMyInterfacedObject.Update;
- Begin
- // do sth.
- End;
- var abc : TMyInterfacedObject;
- List : TList;
- Begin
- abc := TMyInterfacedObject.Create;
- List.Add(abc);
- TMyObject (List[0]).Update;
- ...
- End;