List Index Out of Bounds

[ramonibk]

Buenos dias.

Como bien dice el titulo este es un error que me da cuando intento cargar los Item de un PopMenu en tiempo de ejecución con los nombres de las columnas de un DBGrid. que luego utilizare para poner dichas columnas en ocultas o visibles.

La carga la realizo

Código Delphi [-]
Var
 N, I : Integer;
 T : String;
begin
 N := bdgConsulta.Columns.Count;
 For I := 0 to N do
  Begin
   T := bdgConsulta.Columns.Items[i].Title.Caption;
   PMenu.Items.Add(NewItem(T,0,False,True,nil,0,'item'+IntToStr(I)));
  End;
end;

Pro cuando intento ejecutar
ERROR List Index Out of Bounds (24)
24 son las columnas que por cierto las carga todas.

[[newtron]]

Hola.

Eso te pasa porque estás intentando recorrer un item más de los que tienes.

Cambia a esta linea:

Código Delphi [-]
For I := 0 to N-1 do

Saludos

[ramonibk]

Muchas gracias.
error de principiante, lo que soy jejejejejeje

y eso que es lo que pense en un inicio.