AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Arbeiten mit TTreeView

Ein Thema von Martin W · begonnen am 7. Jan 2016 · letzter Beitrag vom 8. Jan 2016
 
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#5

AW: Arbeiten mit TTreeView

  Alt 7. Jan 2016, 19:20
Hmm..

oder man nutzt die möglichkeiten des TreeNodes:

Delphi-Quellcode:
      for k := 0 to length(varStringArray)-1 do
      begin
        // Leere Tags ignorieren
        if varStringArray[k] = 'then Continue;

        // erstes Node holen
        varTreeNodeItem := TreeView.TopItem;

        // Vergleichen, ob Tag vorhanden
        while Assigned(varTreeNodeItem) do begin
          if varTreeNodeItem.Text = varStringArray[k] then begin
            // Objekt zu bereits existierendem Tag hinzufügen
            TreeView.Items.AddChild(varTreeNodeItem, FObjects[i].ItemCaption);
            Break;
          end;
          // Nächstes Node der 'gleich' Ebene
          varTreeNodeItem := TreeView.TopItem.getNextSibling;
        end;

        // Wenn kein existierender Zweig gefunden, dannn anhängen
        if not Assigned(tmpTreeNode) then begin
          varTreeNodeItem := TreeView.Items.Add(nil, varStringArray[k]);
          TreeView.Items.AddChild(varTreeNodeItem, FObjects[i].ItemCaption);
        end;
      end;
Damit wird nur noch durch die HauptNodes durchgegangen, ohne alle Unternodes zu Prüfen!

Vor allem wird nun wirklich nur nach den Tags gesucht, da beim Durchgehen der ganzen Liste auch TreeNode.Text von den untergeordneten FObjects[i].ItemCaption mit verglichen wird und somit bei einem ItemCaption = Tag dort ein Unter-Node eingefügt wird...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz