FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
Gracias por los aporte.
He probado los siguiente, según indicaciones de nlsgarcia, pero en tiempo de ejecución me sale siguiente error: Access violation at address 040E915 in module prueba.exe. Read of Address 00000008. procedure TFprincipal.DBDatosKeyPress(Sender: TObject; var Key: Char); begin if DBdatos.Fields[DBDatos.SelectedIndex]= (DBDatos.DataSource.DataSet.FieldByName('Proveedor')) then begin if DBDatos.Controls[0] is TInPlaceEdit then with DBDatos.Controls[0] as TInPlaceEdit do begin if (GetTextLen >= 10) and (Key <> #8) then begin Key := #0; ShowMessage('Máxima longitud alcanzada'); end; end; end; end; No sé donde puede estar el error. Gracias por vuestro interes. |
#2
|
||||
|
||||
dvd2000,
Cita:
Cita:
La aplicación incluye la BD para que lo pruebes con facilidad. Espero sea útil Nelson. Última edición por nlsgarcia fecha: 06-12-2012 a las 21:51:45. |
#3
|
|||
|
|||
Gracias nlsgracia, ya he visto tu ejemplo y es lo que quiero hacer. Es decir Dbgrid1 de tu ejemplo se comporta como yo quiero que se comporte.
Ahora bien, no sé por que razón a mí me sale el error de : Access violation at address 040E915 in module prueba.exe. Read of Address 00000008.. en la siguiente línea: if DBgrid1.Controls[0] is TInPlaceEdit then Justo en ese punto salta el error. Supongo que puede ser por tema de versiones de Delphi, tu lo haces con la 7 y yo estoy con la 3. El compilador no da error, y en ejecución pues sí que me salta este error. Te agradezco mucho el interés mostrado. Saludos. |
#4
|
|||
|
|||
Por fin, solucionado.
Es curioso, pero de esta forma me da error. procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if DBGrid1.Fields[DBGrid1.SelectedIndex]=(DBGrid1.DataSource.DataSet.FieldByName('Author')) 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; Y de la siguiente forma, funciona: Columna:=DBrejilla.SelectedIndex; // Averigua numero de columna posicionada. if columna=1 then begin if dbrejilla.Controls[0] is TInPlaceEdit then with dbrejilla.Controls[0] as TInPlaceEdit do begin if (GetTextLen >= 20) and (Key <> #8) then begin Key := #0; ShowMessage('Máxima longitud alcanzada'); end; end; end; Perdon por la indentación, pero no logro que se respete. Gracias a todos y en especial a nlsgarcia. Última edición por dvd2000 fecha: 08-12-2012 a las 15:19:59. |
#5
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
#6
|
|||
|
|||
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. |
#7
|
||||
|
||||
dvd2000,
Cita:
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: Cita:
Nelson. Última edición por nlsgarcia fecha: 08-12-2012 a las 18:23:41. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Delphi for PHP y DBgrid | dante148 | Internet | 1 | 04-10-2011 22:56:15 |
DbGrid en Delphi 7 | drakkon | Varios | 3 | 27-12-2007 04:42:08 |
Delphi for php- dbgrid | omarifr | PHP | 2 | 12-10-2007 17:02:54 |
DBGrid en delphi 5 | ibbeth | SQL | 1 | 03-01-2006 02:38:05 |
Delphi + MySQL (DBGrid) | gringo | Conexión con bases de datos | 5 | 23-10-2004 04:44:31 |
|