|
TInterfaceList is descended from TInterfacedObject, so it needs to be
referenced with an interface to keeps it's reference count above 0 -
else it will be destroyed along with all the objects it contains. eg, TMyObject = class(TObject) private FInterfaceList : IInterfaceList; public constructor create; end; constructor TMyObject.create; begin FInterfaceList := TInterfaceList; // automatic typecast to IInterfaceList end; Conor Boyd wrote:
|
begin:vcard fn:Phil Middlemiss n:Middlemiss;Phil org:Vision Software, MTS Ltd email;internet:[EMAIL PROTECTED] title:Project Leader tel;work:+64 7 3480001 tel;cell:+64 27 4592648 x-mozilla-html:TRUE url:http://www.tumonz.co.nz version:2.1 end:vcard
_______________________________________________ Delphi mailing list [email protected] http://ns3.123.co.nz/mailman/listinfo/delphi
