Cita:
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;