FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como validad 324 TEdit's, no null?
Hola amigos miren en mi aplicación me interesa validar todos mis TEdit's, lo que quiero es que no queden vacios sino me marca error porque en el evento OnChange puse un código que me vaya sumando todos los valores de los TEdit's y se refleje en un TLabel, el problema es que son 324¡¡, pongo este código en el evento OnKeyPress (seleccione todos los TEdit's y di doble click en el evento):
Código:
procedure TGerencia_Reg.Edit1KeyPress(Sender: TObject; var Key: Char); var cero, i: integer; begin if not (key in ['0'..'9',#8,#13]) then key:=#0; for i:=1 to 324 do begin If ((Findcomponent('Edit'+IntToStr(i)) as TEdit).Text=null) then //si oporimes el enter y el edit2 tiene algo escrito entonces Begin cero:=0; (Findcomponent('Edit'+IntToStr(i)) as TEdit).Text:=inttostr(cero); end; end; end; Saludos y suerte en sus proyectos Última edición por axlrafael fecha: 14-05-2008 a las 18:51:03. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como crear un bucle con TEdit's | axlrafael | OOP | 12 | 08-05-2008 19:22:48 |
Pasar demas datos de un DBGRID a TEDIT's | Ericato | Varios | 5 | 09-03-2007 17:44:05 |
cambiar campo null a not null | andressanchez | Firebird e Interbase | 8 | 18-09-2006 22:00:09 |
Como valido un null?? | jbetancurt | Firebird e Interbase | 2 | 11-11-2004 16:19:39 |
Como puedo grabar un NULL en la BD? | furniman | Varios | 2 | 23-03-2004 11:36:36 |
|