Hallo ihr beiden,
das Code-Gerüst sollte besser so aussehen:
Delphi-Quellcode:
function XML_Load(fn: TFileName; vst: TVirtualStringTree): Boolean;
var
xDoc: IXMLDocument;
begin
xDoc := LoadXmlDocument(fn);
with xDoc do
try
Active := True;
ShowMessage(documentElement.NodeName);
{
...
}
Result := True;
except
Result := False;
end;
end;
Achtet auf den Typ der lokalen Variable xDoc. Ein Einfrieren des Programms kann ich mir so nicht vorstellen.
Grüße vom marabu