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;
