Forum Discussion

hulig4n's avatar
hulig4n
New Contributor
14 years ago

how to loop through all nodes of a TreeView

Hi! Im trying to loop through all nodes of a TreeView. I know how to do that in Delphi (with recursion), but I can't manage this in TestComplete. Here is what I have done so far: 1. Made a s...
hulig4n's avatar
hulig4n
New Contributor
14 years ago
Found a solution:



procedure LoopItems(TV: OleVariant); forward;

procedure LoopChildItems(ItemColl, Depth: OleVariant); forward;



procedure Main;

var p: OleVariant;

begin

  p:= NameMapping.Sys.Bir.dlgReportBIRPIS.paDialog.paClient.paClientLeft.tvPrintReport;

  LoopItems(p);

end;



procedure LoopItems(TV: OleVariant);

begin

  LoopChildItems(TV.wItems, 0);

end;



procedure LoopChildItems(ItemColl, Depth: OleVariant);

var i, j, s, indent: OleVariant;

begin

  for i:=0 to ItemColl.Count-1 do

  begin

    // Forms an indent to denote subitems

    indent := '';

    for j:=0 to Depth-1 do

      indent := indent + ' ';

   

    // Obtains item caption

    s := indent + ItemColl.Item.Text;

    Log.Message(s);

    

    if ItemColl.Item.Items <> nil then

      LoopChildItems(ItemColl.Item.Items, Depth+1)

    else

      ItemColl.Item.Click();

  end;

end;



Thx anyway.