Where is the code to make the tree empty when you start processing a new file?
Or, you could dispose of the old tree, and create a new one. Rainer ----- Original Message ----- From: "John Barrat" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, June 15, 2006 5:20 AM Subject: Need help on TTreeview > Can someone advise me on how I should be adding child nodes to a standard > Ttreeview control in Delphi 2006? > > Briefly, I am trying to look at a series of files, extracting elements of > data from them and building a tree of these elements. > > My code works fine with the first file but I am finding that the elements > of > the first file I have extracted are also appearing in the nodes of > subsequent files. See attached screenshot - the items enclosed in the > rectagle only apply to the first file (SPI) and only the last item in the > list should apply to the second file (spiEEPROM). > > This is an extract of the code I am using: - I have highlighted the lines > which reference the Ttreeview control. > > for i := 0 to filelist.Count -1 do > begin > SourceText.LoadFromFile(FileList[i]); > . > . > . > s := ExtractFileName(FileList[i]); // extract name > s := leftStr(s, length(s)-4); // and remove extension >> Node := tLibExplorer.Items.Add(nil,s); // create new node in > ExplorerTree > . > . > . > // Add a new set of sub nodes for this library >> NodeVars := tLibExplorer.Items.AddChild(Node,'Vars'); > > // search for Public subs, functions, Vars and constants > j := 0; > while j < sourcetext.Count -1 do > begin > // Check for Public Dims > if ANSIStartsText('Public Dim',Trim(SourceText[j])) then > begin > tempStr := trim(RightStr(SourceText[j],Length(SourceText[j]) > -10)); > If Length(TempStr) < 11 then > begin > Inc(j); > tempstr := Trim(SourceText[j]); > dimlist.Add(s + tempStr); >> tLibExplorer.Items.AddChild(NodeVars,tempStr); > end; > While ANSIEndsText(',', TempStr) do > begin > inc(j); > tempStr := Trim(SourceText[j]); > if tempStr = '' then continue; >> tLibExplorer.Items.AddChild(NodeVars,tempStr); > dimList.Add(s + tempStr); > end; > end; > inc(j); > end; > end; > > I know my extraction logic is correct as I am loading the data into a > string > list as well just to check. It seems that when I add the child items they > get copied to all nodes although I am updating the node value when I > generate the next main node and first child node. > > What am I doing wrong? > > John Barrat > > > > _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
