Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   como recorrer una estructura de edits (https://www.clubdelphi.com/foros/showthread.php?t=21108)

tiagor64 06-05-2005 15:52:03

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.

tiagor64 06-05-2005 16:30:42

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;


ramiretor 06-05-2005 23:42:40

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:

Código Delphi [-]
Procedure TForm1.MiProcedimiento;
var
  i: Integer;
begin
   with Form1 do
   begin
      for i:= 0 to ComponentCount  - 1 do
      begin
         if Components[i] is TEdit then
         begin
            /// la propiedad  del compenente que quieras
         end;
      end;
   end;


end;

Saludos y espero te sirva


La franja horaria es GMT +2. Ahora son las 09:58:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi