'Ungültige Zeigeroperation' beim XML Datei anlegen

[Morphie]

Hi,

ich versuche mich jetzt ein bisschen an XML...
und schon am Anfang habe ich ein Problem...

mein Code:

Delphi-Quellcode:

procedure TfrmMain.AdvGlowButton31Click(Sender: TObject);
var
  xml: TXMLDocument;
  test: IXMLNode;
begin
  SaveDialog1.InitialDir:=abakus.DataDir;
  if (SaveDialog1.Execute) then
  begin
    try
      xml:=TXMLDocument.Create(nil);
      xml.Active:=True;
      xml.Version    := '1.0';
      xml.Encoding   := 'ISO-8859-1';
      xml.Options:=[doNodeAutoIndent];
      test:=xml.AddChild('test');
      xml.SaveToFile(SaveDialog1.FileName);
    finally
      xml.Free;
    end;
  end;
end;

Ich bekomme an der Stelle von

Delphi-Quellcode:

test:=xml.AddChild('test');

eine Exception:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Test.exe ist eine Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroperation' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------


woran könnte das denn liegen? Der gleiche Code scheint in dem Thread zu funktionieren =/

[himitsu]

Der Code ist soweit erstmal OK und sollte auch laufen (tut's hier zumindestens)


Aber eine Sache ist falsch (auch wenn es am "Problem" selber nichts ändert)

Delphi-Quellcode:

xml := TXMLDocument.Create(nil); 
try
  ...

Speicheranforderungen (hier das Erstellen der Klasse) gehören immer VOR den Try-Finally-Block,
nicht hinein. (es sei den man initialisiert die Variable entsprechend)