Hallo s14, ich habe eine NodeList, die ich Element für Element durchgehe ->
Delphi-Quellcode:
procedure TfrmMain.ShowFolders(Node: IXMLDOMElement; nParent: PVirtualNode);
var
i: Integer;
nlFolders: IXMLDOMNodeList;
nName, nChild: IXMLDOMElement;
TreeData: TTreeData;
begin
ChangeCursor;
tvTree.BeginUpdate;
try
tvTree.NodeDataSize := SizeOf(TTreeData);
nlFolders := Node.selectNodes('Folder');
for i := 0 to Pred(nlFolders.length) do
begin
nChild := nlFolders.item[i] as IXMLDomElement;
nName := nChild.selectSingleNode('name') as IXMLDOMElement;
TreeData.Caption := nName.text;
TreeData.Node := nChild;
ShowFolders(nChild, AddVSTStructure(nParent, TreeData, nChild));
end;
finally
tvTree.EndUpdate;
ChangeCursor;
end;
end;
Ausgangspunkt ist hier Node, welche aus 'toolbarButtons_btnOpenFileClick' (siehe Vorbeitrag) kommt.
Wenn Du Dir meine vorherigen Beiträge anschaust, wirst Du sehen, dass ich diesbezüglich schon viel herumexperimentiert habe
