TXmlDocument.Create(nil)

[Perlsau]

Moin allerseits,

in einer Mainform-Unit verwende ich folgende Methode zum Öffnen einer XML-Datei problemlos:

Delphi-Quellcode:

procedure TFormMain.XMLfile_Open(const Datei: String);
Var
  XmlDok : TXmlDocument;
  Root   : IXmlNode;
  Txt    : String;

begin
  XmlDok := TXmlDocument.Create(self);
  Try
    XmlDok.LoadFromFile(Datei);
    Root := XmlDok.DocumentElement;
    If Root.HasChildNodes Then
    Begin
      Txt := Root.ChildNodes['rootfiles'].ChildNodes['rootfile'].AttributeNodes['full-path'].Text;
      Memo1.Lines.Append(Txt);
    End;
  Finally
    XmlDok.Free;
  End;
end;

Nun möchte ich aber das XML-Handling in eine Klasse auslagern und kann dort natürlich nicht self als Eigentümer bei Erzeugen der TXmlDocument-Instanz angeben, sondern muß mich mit nil begnügen:
  XmlDok := TXmlDocument.Create(nil); Das führt jedoch zu einem Laufzeitfehler:

Im Projekt XMLTEST.exe ist eine Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroperation' aufgetreten.

Was muß ich also tun, um TXmlDocument in einer eigenständigen Klasse zu verwenden, in der ich beim Erzeugen keinen Owner zuweisen kann?

Eine mögliche Lösung wäre natürlich, die Klasse mit Owner zu erzeugen und diesen dann der TXmlDocument-Instanz als solchen zuzuweisen. Das funktioniert zwar, scheint mir aber intuitiv irgendwie nicht ganz das Richtige zu sein ...