Instanz von TXMLDocument zur Laufzeit Erstellen und Benutzen

[himitsu]

Hab zwar von XML kaum Ahnung, abere schon mal so versucht?

Delphi-Quellcode:

Procedure TForm1.cmd1Click( Sender: TObject ); 
Var   XML:   TXMLDocument; 
Begin 
   If odFile.Execute   Then Begin 
      XML   := TXMLDocument.Create( Form1 );  // oder wie es bei dir heißt
      Try 
         XML.LoadFromFile( odFile.FileName ); 
         XML.Active; 
         txtOut.Lines.Append( 'Version:'#9#9         + XML.Version ); 
         txtOut.Lines.Append( 'Encoding:'#9         + XML.Encoding ); 
         txtOut.Lines.Append( 'StandAlone:'#9       + XML.StandAlone ); 
         txtOut.Lines.Append( 'NamespaceURI:'#9   + XML.DocumentElement.NamespaceURI ); 
         txtOut.Lines.Append( 'LocalName:'#9         + XML.DocumentElement.LocalName ); 
         XML.Inactive;  // hab gerade keine Plan, wie diese Funktion 
                        // wirklich heißt. (halt das Gegenteil von XML.Active)
      Finally 
         If Assigned( XML ) Then FreeAndNil( XML ); 
      End; 
   End; 
End;