XML Parse Error beim Auslesen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, TH3LL.

Die Methode LoadXML() verlangt eine Zeichenkette - Load() ist die Mehtode um einen URL (auch Datei) zu laden:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    // ...
  private
    xmldoc: IXMLDomDocument2;
  end;

var
  Form1: TForm1;

procedure TForm1.LadeXMLDatei(Sender: TObject);
begin
  fAppPath := Extractfilepath(Application.ExeName); 

  xmlDoc := CoDomDocument.Create;   

  if FileExists(fappPath + Filename) 
    then xmlDoc.load(fappPath + Filename)
    else xmlDoc.loadxml('<?xml version="1.0"?><Zugabgabe/>');

  if xmlDoc.parseError.errorCode <> 0 then 
  begin
    MessageDLg('Die XML-Datei ist nicht korrekt!',mtError, [mbOK], 0);
    Application.Terminate;  
    // Hier gibt es den Abbruch aufgrund eines Lesefehlers
  end;
end;

Freundliche Grüße vom marabu