Como moverse por un conjunto de edits
 

Hola, necesito ayuda, tengo un grupo de edits que llegan desde edit1 a edit16, i necesito recorrer edit por edit para meter su valor en un tabla.

Código Delphi [-]
  for i:=1 to 16 do
 begin
   table1.edit;
   table1.Fields[i+2].value:=edit+'i'+.text;
   table1.post;
 end;

no se si se puede hacer algo similar a esto, si alguien me sugiere algo, o me corrige en que fallo...

muchas gracias!

Bueno una solución puede ser usar el método FindComponent del Form que los contiene.

Así puedes decir:

Código Delphi [-]
 for i:=1 to 16 do
 begin
   table1.edit;
   table1.Fields[i+2].value:=TEdit(FindComponent('Edit'+IntToStr(i)).text;
   table1.post;
 end;

También recomendarte que uses etiquetas VB para la mejor visualización de tu código

Saludos Yusnerqui.

Prueba con esto ....

Código Delphi [-]
for n:=(Form1.ComponentCount -1) downto 0 do
    begin
       if ((Components[n] is TEdit) and (Components[n].tag = 1)) then
         begin
           tabla[n] := TEdit(Components[n]).text;
         end;
    end;

saludos...

Muchisimas gracias!! funciona de perlas, el codigo es:
faltava un ")", aun asi gracias, adios.

Me falto algo , primero pasa los valores de los edit a su tag asi...

Código Delphi [-]
edit1.tag := edit1.text;

de esa manera tandras el valor...

luego

Código Delphi [-]
for n:=(Form1.ComponentCount -1) downto 0 do
    begin
       if ((Components[n] is TEdit) and (Components[n].tag <> 0')) then
         begin
           lista[n] := TEdit(Components[n]).tag;
         end;
    end;

No es la mejor programacion pero creo que debiera resultar !!!

saludos.

No sé si sea la mejor, pero si será más eficiente que FindComponent. FindComponente utiliza un ciclo que recorre las componentes de un formualrio para buscar la del nombre dado, de manera que hacer un ciclo que use FindComponente significa recorrer dos veces las componentes.

// Saludos

Roman tiene razón, pero es que como la propia ayuda de delphi lo usa dentro de un ciclo, pues pensé que no era tan malo....
De todos modos siempre podrás definirte un arreglo donde sus elementos apunten a cada uno de los edits y recorrerlo, son algunas líneas de código más, pero será mucho mas eficiente.
Digo eso creo.:confused:

Saludos:D

Lo sé, lo sé. Pero, por esta vez, el ejemplo de Delphi es francamente malo. ¿Para qué buscar una componente que se acaba de construir y por tanto se tiene (o se puede tener) su referencia a la mano?

// Saludos