Dbgrid en Delphi 3

[Casimiro Noteví]

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



Gracias

[dvd2000]

He de rectificar. Dicen que es de sabio. La euforia me ha llevado a precipitarme.

Hay algo en mi programa, que no va bien.

Y no sé que es. En tiempo de Ejecucion hay veces que me da el error y otras no. Ya saben el error de "violation....". Así que he tenido que quitar el códigode nlsgarcia y le he buscado una alternativa, no es la que más me gusta pero así va a tener que tirar.

Lo ideal era que al llegar al tope admitido por un campo, se abriera una ventana para que siguiera escribiendo mas aún, pero al final, obligo al usuario a pinchar en un boton para abrir esa ventanita.

Gracias a todos.

[[nlsgarcia]]

dvd2000,

Empezado por dvd2000

En tiempo de Ejecucion hay veces que me da el error y otras no

Te comento:

1- Crea un nuevo programa de pruebas y solo coloca el código de control de longitud de texto, el DBgrid, componentes de BD y el código mínimo necesario, la idea es que puedas aislar el error.

2- Haz debug a tu programa, verifica la línea de código que genera el error.

3- ¿Hay algún objeto que utilices y que no estés instanciando correctamente?, ¿Que acción ejecuta el programa antes de la falla?

4- Probastes el ejemplo que te anexe, ¿Como funciona en tu sistema?, recuerda que uso Delphi 7 y componentes ADO en el ejemplo.

5- ¿Que valor tiene Columna:=DBrejilla.SelectedIndex al momento del error?

Quizás el problema sea otro componente que usas en tu aplicación, lo importante es precisar el origen del error, si funciona y a veces falla, ¿Cual es la causa?, toma en cuenta que todas la variables cuentan al momento de analizar un error (Versión de Delphi, Componentes de acceso de datos, BD usada, Versión de OS, Componentes de Terceros, Instancias de Objetos, Condiciones previas al error, Punteros, etc).

Revisa este link:

Delphi access violation assigning local variable: http://stackoverflow.com/questions/2...local-variable

Espero sea útil

Nelson.

[[nlsgarcia]]

dvd2000,

Revisa este código:

Código Delphi [-]
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   // Método 2: Funciona correctamente
   if (DBGrid1.SelectedIndex = 1) then
   begin
      if Assigned(DBGrid1.Controls[0]) then
      begin
         if DBGrid1.Controls[0] is TInPlaceEdit then
         with DBGrid1.Controls[0] as TInPlaceEdit do
         begin
            if (GetTextLen >= MaxLongComment) and (Key <> #8) then
            begin
               Key := #0;
               ShowMessage('Máxima longitud alcanzada');
            end;
         end;
      end;
   end;
end;

El ejemplo previo es una variante al código de control de longitud de texto en un control TDBGrid propuesto anteriormente, se excluyen asignaciones a variables y se verifica que el control este asignado antes de realizar ninguna acción. Todo el procesamiento queda circunscrito al control TDBGrid.

La idea es tratar de descartar que el control tenga en algún momento de la ejecución el valor nil y por ello se provoque la excepción. Es una idea, te sugiero probarla en tu aplicación.

Nota: Tanto el código original como la variante funcionan correctamente en mi Sistema (Windows 7 Professional x32 SP1, Delphi 7, Componentes ADO, BD Access).

Espero sea útil

Nelson.

[dvd2000]

Gracias NlsGarcia, por todas las molestias tomadas. Lo miraré y probaré, lo que me dices, y ya te comentaré algo. En principio como te he comentado, he puesto el botoncito, para no dedicar mas tiempo a esta rutina, ya que me interesa acabarlo lo antes posible. Pero lo retomaré en breve para reestudiar lo que me propones.

Ya te contaré y muchas gracias.