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 recorrer una estructura de edits
Hola foro:
Tengo un problema con unos edits, ya que tendria que recorrer todos los edits de un formulario y pasarlos a una bd y no se como hacer un bucle para que me cambie el nombre del edit del q recoger la informacion. tengo cuadros de texto del 1 al 16 p.ej. edit1, edit2, ... edit16 y necesitaria que un bucle me fuera incrementando el numero de edit para recorrer todos los edits y asi recoger en la base de datos su valor. Muchas gracias. |
#2
|
|||
|
|||
ya tengo la solucion:
Código:
procedure TForm4.Button1Click(Sender: TObject); var i : integer; dato : string; begin For i:=1 To 16 Do With TEdit (FindComponent ('cod'+IntToStr(i))) Do Begin // aqui va el codigo sql End; end; |
#3
|
|||
|
|||
Hola:
Te comento que no es la única manera de hacerlo, pues Delphi guarda los componentes en una matriz interna (así como componentes contenedores), por ejemplo:
Saludos y espero te sirva
__________________
Ernesto R. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|