Interface-Element in TStrings.Objects schreiben

[shmia]

Zitat von Stevie:

Soll ich mir nen Interface-Pointer-Array machen??

Nö, dann nimm besser TInterfaceList.
Du kannst Interfacepointer auf in TStrings.Objects[] unterbringen; das wird aber etwas heikel
wegen der Referenzzählung. (ich würd's nicht empfehlen)

Delphi-Quellcode:

XMLNode: IXMLNode; 
begin 
  {...} 
  XMLNode.AddRef;  // sonst verabschiedet sich das Object hinter dem Interface
  Objects.AddObject(XMLNode.Attributes['name'], TObject(Pointer(XMLNode)));

  {...}
  // und später freigeben
  for i :=0 to objects.Count-1 do
  begin
     XMLNode := IXMLNode(Pointer(Objects.Objects[i]));
     XMLNode.Release;
  end;