Also,
Du glaubst es jetzt wahrscheinlich nicht, aber
Delphi-Quellcode:
procedure TfrmMain.toolbarButtons_btnOpenFileClick(Sender: TObject);
var
nlist: ixmldomnodelist;
Node: IXMLDOMElement;
begin
if OpenDialog1.Execute then
begin
xmlDoc := CoDomDocument40.Create;
xmlDoc.async := False;
sXMLFileName := OpenDialog1.FileName;
xmlDoc.Load(sXMLFileName);
Node := xmlDoc.documentElement.selectSingleNode('/kml/Document/Folder') as IXMLDOMElement;
//Node := xmlDoc.selectSingleNode('/kml/Document/Folder') as IXMLDOMElement;
showmessage(node.text);
oStatusBar1.Panels[0].Caption := sXMLFileName;
end;
end;
funktioniert nicht