Beim XML laden bleibt die Anwendung einfach hängen

[marabu]

Hallo Alex,

da gibt es ein kleines Problem mit Borlands Implementierung dieser Methode, das erzeugte VCL-Objekt TXMLDocument wird so nie freigegeben.

Also besser so:

Delphi-Quellcode:

function XML_Load(fn: TFileName; vst: TVirtualStringTree): Boolean;
var
  xDoc: TXMLDocument;
begin
  xDoc := TXMLDocument.Create(Application);
  with xDoc do
  try
    try
      FileName := fn;
      Active := True;
      ShowMessage(documentElement.NodeName);
      {
      ...
      }
      Result := True;
    except
      Result := False;
    end;
  finally
    Free;
  end;
end;

Freundliche Grüße