Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Virtual Treeview - Nodes durch-iterieren - Wie?

  Alt 10. Mär 2009, 08:44
Hallo Wissende,

ich habe eine kleine function, die von einem normalen Treeview auf einen virtual Treeview adaptieren will, finde aber keine Möglichkeit die Schleife so anzupassen, dass ich durch alle Nodes gehen kann und das Level prüfen und vergleichen kann.

Irgendwie ist das völlig anders beim VST. Hier mal das Original, wie es mit einem normalen Trreview funktioniert hat.

Delphi-Quellcode:
function GetItemsOfLevel(int_level_count : integer) : integer;
var
  i : integer;
begin
  Result := 0;
  with form1.tree do
    begin
      for i := 0 to Items.Count-1 do
        begin
          if Items.Item[i].Level = int_level_count then inc(Result);
        end;
    end;
end;
Kann mir bitte jemand einen Tipp geben?
Danke
Tom
  Mit Zitat antworten Zitat