Seleccion de item en combobox da error list index out of bonds

[jafera]

Buenas a todos.

Pues como he puesto en el título, cuando selecciono un item del combobox si la columna [15] del grid está en visible :=false, me da el error.

Código Delphi [-]
procedure TF_Pagues.DBLookupComboBox1Exit(Sender: TObject);
begin
        If DBEdit3.Text='0' then
        begin
                JvDBUltimGrid1.Columns[15].Visible:=False;      // Aquí es donde da el error del list index out of bounds ya que si
                                                                               // en el mecanico anterior el visible de la columna es false, no la
                                                                               // encuentra y marca el error                 
                DBEdit3.Font.Color:=clBlack;
                DBEdit3.Color:=clWindow;
        end
        else
        begin
                JvDBUltimGrid1.Columns[15].Visible:=True;
                DBEdit3.Font.Color:=clRed;
                DBEdit3.Color:=clYellow;
        end;
end;

No se como puedo controlar la "visibilidad" de la columna [15] para que no de este error.
Si alguien tiene una idea o se ha encontrado con lo mismo.......

Gracias por adelantado

Josep

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[jafera]

No los he puesto?

Es que he tenido que editar el mensaje un par de veces y posiblemente lo has visto mientras estaba en el chapista

Saludos

[javier7ar]

"index out of bonds" da porque quiere acceder a una posicion de un array/lista que no existe, generalmente cuando te pasas del tamaño del array/lista.
Recorda que los indices en esas estructuras que heredan de TList o TCollection suelen ir de 0 a (Count -1), asi que si tenes 15 columnas, van de 0 a 14, quizas le estas errando en eso
Saludos

[Casimiro Notevi]

Empezado por jafera

No los he puesto? Es que he tenido que editar el mensaje un par de veces y posiblemente lo has visto mientras estaba en el chapista Saludos

[jafera]

Gracias por la respuesta.

Efectivamente las columnas van de 0 a 15 i mi columna es la 15 no la catorce.

Resumiendo que el problema es que no encuentra la columna porque su propiedad visible es false cuando cambio de registro, en el primer registro si visible es false o true funciona perfectamente.

Luego cambio de operario en un combobox y la propiedad visible sigue siendo false y aquí es dónde hace el out of bound[15]

Saludos

Josep

[jafera]

Casimiro, acepto tu "tironcillo de orejas" y sus correspondientes disculpas, jijiji.

Intento en lo máximo cumplir las normas aunque hay una que es la del título descriptivo que creo nos cuesta bastante cumplir a todos.

Saludos

Josep

[ecfisa]

Empezado por jafera

Buenas a todos.

Pues como he puesto en el título, cuando selecciono un item del combobox si la columna [15] del grid está en visible :=false, me da el error.

Código Delphi [-]
procedure TF_Pagues.DBLookupComboBox1Exit(Sender: TObject);
begin
  If DBEdit3.Text='0' then
  begin
    JvDBUltimGrid1.Columns[15].Visible:=False;  // Aquí es donde da el error del list index out of bounds ya que si
                                                // en el mecanico anterior el visible de la columna es false, no la
                                                // encuentra y marca el error                 
    DBEdit3.Font.Color:=clBlack;
    DBEdit3.Color:=clWindow;
  end
  else
  begin
    JvDBUltimGrid1.Columns[15].Visible:=True;
    DBEdit3.Font.Color:=clRed;
    DBEdit3.Color:=clYellow;
  end;
end;

No se como puedo controlar la "visibilidad" de la columna [15] para que no de este error.
Si alguien tiene una idea o se ha encontrado con lo mismo.......

Gracias por adelantado

Josep

Hola Josep.

No he usado los componentes Jedi, pero no pareciera tener sentido que exista esa relación entre la visibilidad y la existencia de la columna.

Segun entiendo de tu mensaje (y tal vez entendí mal), quiere decir que un código como este:

Código Delphi [-]
begin
  JvDBUltimGrid1.Columns[4].Visible := False;
  JvDBUltimGrid1.Columns[4].Visible := False;  // Error: La columna dejo de existir ??? 
  ...

Lanzaría el error list index out of bounds en la tercer línea aún existiendo la columna 4, ¿ Entonces como se haría para volverla al estado visible ?

Saludos.

[jafera]

Problema solucionado.

El problema no venia por el visible en false, venia porque en otro proceso destruía la columna en cuestión y evidentemente list index out of bounds.

Poco a poco iremos aprendiendo más cosillas los que nos dedicamos a esto en plan hobby, hay que darse de bruces con el suelo varias veces para saber que este está duro.

Gracias a todos y perdonad.

Josep

[[Al González]]

Empezado por jafera

Problema solucionado.

El problema no venia por el visible en false, venia porque en otro proceso destruía la columna en cuestión y evidentemente list index out of bounds.

¡Qué bien! Pero no estaría mal que explicaras con más detalle cómo es que ese otro proceso repercutía en el código que mostraste al principio. Puede servir a otros en alguna situación similar.

[jafera]

Correcto Al.

En el DataModule tengo las tablas, pues bien en el after delete de la tabla que guarda las lineas del proceso tenia puesto esto:

Código Delphi [-]
If F_Pagues.DBEdit3.Text = '0' then 
begin 
  F_Pagues.JvDBUltimGrid1.Columns[15].Destroy; 
  L_PaguesDIA_BAIXA.Value:= 0; 
  F_Pagues.DBEdit3.Font.Color:=clBlack; 
  F_Pagues.DBEdit3.Color:=clWindow; 
end

y evidentemente la columna era destruida y era imposible hacera "invisible".

Saludos

Josep

[[Al González]]

Comprendido.

Aunque un módulo de datos no tiene por qué "ver" a la interfaz de usuario (sólo al revés).