Also wenn ich :
Delphi-Quellcode:
if ( GlobalReferenceCount = 0 )
and Assigned( GlobalXMLInterface )
then
begin
m_IXMLDocParser :=
nil;
// Hier wird freigegeben
GlobalXMLInterface :=
nil;
// Hier kann ich nicht mehr auf die geladenen XML-Daten zugreifen
inherited Destroy;
end
Oder wie genau überprüfst du das? Hab mir da bisher noch nie so große Gedanken drüber gemacht
Und naja das zweite Beispiel ist mies, da müsste man sich was überlegen...vll irgendwie die Interfaces trennen oder so...
Delphi-Quellcode:
procedure Beispiel;
var
xml: IXMLDocument;
{$delphiinten} tempnode: IXMLNode;
{$ende}
begin
xml := coDOMDocument60.Create;
TuWas(
xml.RootDocument);
xml :=
nil;
end;
Da dein Code aber sicherlich um einiges komplexer ist, ist es eine Herausforderung...