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 puedo borrar 100 edit
como puedo borrar 100 edit
e puesto este codigo en un Button para limpiar
no me marca ningun error pero tampoco me limpia los edit.. |
#2
|
||||
|
||||
Prueba con FindComponent, algo así (lo he hecho de memoria, revísalo):
Suponiendo que los TEdit se llaman edit1, edit2, edit3, etc. Código:
var i:integer; cEdit : String; UnEdit : TEdit; begin for i:=1 to 100 do begin cEdit :='Edit'+IntToStr(i); UnEdit := Findcomponent(cEdit); if Assigned(UnEdit) then TEdit(UnEdit).Text := ''; end; end; |
#4
|
|||
|
|||
El error se encontraba en la declaracion de la variable UnEdit : Tcomponent;
gracias casimiro me acabas de ayudar con 100 edit1.clear |
#7
|
|||
|
|||
Otra Pregunta y como seria para limpiar label..?
|
#8
|
||||
|
||||
Hola
Se usa esencialmente lo mismo, solo cambia el componente: Saludos
__________________
Siempre Novato |
#9
|
|||
|
|||
Muchas gracias caral .....
|
#10
|
||||
|
||||
¿Y si los Edit están en otro Forma?
¿¿¿ Form3.Edit3.Text ??? |
#11
|
||||
|
||||
Hola MAXIUM.
Código:
procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin with Form3 do for i:= 0 to ControlCount -1 do if Controls[i].ClassType = TEdit then TEdit(Controls[i]).Text:= ''; end; Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 14-07-2010 a las 03:11:22. |
#12
|
||||
|
||||
Hola, gracias, pero que pasa si tengo un Edit1.Text y un AlignEdit1.Text, el segundo descendiente del primero, osea también es un TEdit y quiero modificar solo los AlignEdit dejando intactos los primeros.
Funcionara?!?!
Última edición por MAXIUM fecha: 14-07-2010 a las 03:27:42. |
#13
|
||||
|
||||
Hola de nuevo MAXIUM.
Si usas la forma: Código:
if Controls[i] is TEdit then ... Es por eso que usé: Código:
if Controls[i].ClassType = TEdit then ... Código:
if Controls[i].ClassType = TAlignEdit then ...
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#15
|
||||
|
||||
Sin duda.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como puedo borrar una fila en un dbgrid | Lucas_diaz1810 | Conexión con bases de datos | 1 | 14-09-2007 18:07:12 |
¿Como puedo hacer que aumente el valor de un edit? | Nelly | Varios | 7 | 18-04-2007 05:33:27 |
demasiados edit para borrar | huwabe78 | Varios | 12 | 30-11-2006 00:16:00 |
Como puedo borrar el contenido de una tabla entera | CoCaInE | Conexión con bases de datos | 5 | 06-06-2006 03:49:00 |
no puedo borrar registros | Patricio | Conexión con bases de datos | 2 | 16-02-2005 14:39:05 |
|