Problem mit XML Datei

[Akut-Programming]

Also entweder schlägt mir meine kleene Angina zu sehr offn Kopp, dat ichs nich hinkrieg aber es will immernoch nich. Habs jetzt wie du meintest ins OnCreate des Hauptform geschrieben. Jetzt kommts da zuner Zugriffsverletzung..

Delphi-Quellcode:

unit main;

interface

uses
   ..  
   MSXML2_TLB;

type
  Tfrm_main = class(TForm)
   ...
  public
    { Public-Deklarationen }
    instpath: string;
    xmlDoc: IXMLDOMDocument2;
  end;
const
 xmlfilename='Data/buddys.xml';

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  instpath:=ExtractFilePath(Application.ExeName);
  if not FileExists(xmlfilename) then FileCreate(xmlfilename);
  if FileExists(xmlfilename) then xmlDoc.load(xmlfilename)       // Hier gibts diesma die Zugriffsverletzung  
  else xmldoc.loadXML('<?xml version="1.0" encoding="iso-8859-1"?><BuddLister/>');
  xmlDoc := CoDOMDocument40.Create;
  xmlDoc.setProperty('NewParser', true);
end;