Recorrer un menu

[[Ivanzinho]]

Empezado por Ubed

Hola, vereis yo tengo un menu que quiero recorrer para coger sus Padres e Hijos y meterlos en un Tree, he hecho esto pero no se porque no me deja ejecutarlo, me pueden decir que esta mal??

me sale un error en la parte que esta en rojo, dice algo asi komo k espera un "[" y encuentra un "."

Que puede pasar??

Código Delphi [-]procedure TForm1.FormShow(Sender: TObject);
var i,j: integer;
begin
i:=0;
JvCheckTreeView1.Items.Clear;
while i<=mainmenu1.Items.Count do
begin
j:=0;
while j<=mainmenu1.Items[i].Items.Count do
begin
JvCheckTreeView1.Items.Addchild(JvCheckTreeView1.selected, mainmenu1.Items[i].items[j].caption);
i:=i+1;
end;
i:=i+1;
end;
end;

Tienes que cambiar

Código Delphi [-]
mainmenu1.Items[i].Items.Count

por

Código Delphi [-]
mainmenu1.Items.Items[i].Count

Tambien estás utilizando mal las variables.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var   
   i,j: integer;
begin   
   i:=0;   
   JvCheckTreeView1.Items.Clear;      
   while ido      
      begin    
         j:=0;            
         while j < mainmenu1.Items[i].Items.Count do               
            begin                                            
               JvCheckTreeView1.Items.Addchild(JvCheckTreeView1.selected,
                                                  mainmenu1.Items[i].items[j].caption);  
               j:=j+1;
            end;          
         i:=i+1;
      end;
end;