Como moverse por un conjunto de edits

[ilichhernandez]

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...

[ilichhernandez]

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.

[roman]

Empezado por ilichhernandez

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

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

[yusnerqui]

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....

Empezado por Ayuda de Delphi

The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

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.

Saludos

[roman]

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