Arbeiten mit TTreeView

[frankyboy1974]

hallo,

mit diesem Codeschnipsel

Delphi-Quellcode:

          varItemAdded := False;
          
          for l := 0 to TreeView.Items.Count -1 do
            begin
            
              if TreeView.Items[l].Text = varStringArray[k] then
                begin
                  // Objekt zu bereits existierendem Tag hinzufügen
                  TreeView.Items.AddChild(TreeView.Items[l], FObjects[i].ItemCaption);
                  varItemAdded := True;
                  Break;
                end;
                
            end;

          if not varItemAdded then
            begin
              // Neues Tag anlegen und Objekt hinzufügen
              varTreeNodeItem := TreeView.Items.Add(nil, varStringArray[k]);
              TreeView.Items.AddChild(varTreeNodeItem, FObjects[i].ItemCaption);
            end;

überprüfst du also, ob ein Tag bereits vorhanden ist. Wenn Ja, wird das Objekt an der Stelle angefügt, wenn nein hinten drangehängt. Dazu muss du aber Worst-Case die gesamte Treeview durchlaufen, bevor du weisst ob ein Tag bereits vorhanden ist oder nicht. Wenn ich aber eine Liste nicht komplett durchlaufen möchte, um zu wissen ob ein Element bereits vorhanden ist, nimmt man für gewöhnlich (zusätzlich) ein Dictonary (Hashmap oder wie auch immer). Ich würde also parallel zur Treeview, ein Dictonary mitpflegen, indem ich jeweils den Tag plus die Position in der Treeview speichere. Wenn ich ein Tag nun prüfe, schaue ich im Dictonary nach, ob das Tag vorhanden ist, wenn ja, erhalte ich die Position an der ich das Objekt einfüge, wenn das Tag noch nicht in meinem Dictonary vorhanden ist, weiss ich, dass ich das neue Tag am Ende in die Treeview einfügen muss.

Zum Codieren hatte ich gerade keine Lust, aber vielleicht hilft es zumindestens als Denkanregung.

mfg