Componentes Dinamicos (contenedores)
 

saludos amigos...

estoy haciendo una aplicacion y se presenta un problema que me saco de mis casillas...

en un form y segun una consulta que hago a una bd creo un conjunto de componentes(dinamicos) para ser mas especificos por cada registro un tpanel y dentro de el una imagen y un tedit ...la creacion de estos no es el problema, es que deseo recorrer de forma generica ( o sea no por nombres ) los componentes y usar el valor de cada tedit para algo (como parametro por ejemplo)

la idea en cristiano seria asi

for i:=0 to ComponentCount-1 do
begin
if Components[i] is TPanel then
begin
// aca esta el problema ya estoy en el tpanel y debo buscar el tedit y cargar su valor a una variable pero por varios medios trate y siempre sale cualquier error (list out of bounds ) entre otros
lo que quiero aclarar es que no me sirve crear los componentes con un nombre mas un indice algo asi como tedit1, tedit2, tedit3 porque la informacion que deseo sacar de cada tpanel es el nombre de dicho tpanel y el valor del tedit, recorro los contenedores, asigno a variable el nombre del panel y el valor de tedit que esta dentro de el todo esto independiente de cuantos tpanel esten el el form ....



//
end;
end;

se que varios de ustedes deben tener la solucion y estare agradecido una vez mas por la ayuda.....

Hola,

Nada te impide recorrer los componentes de un determinado panel, o sea, algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  for i := 0 to Self.ComponentCount-1 do
  begin
    if (Self.Components[i] is TPanel) then
    begin
      for j := 0 to Self.Components[i].ComponentCount-1 do
      begin
        if (Self.Components[i].Components[j] is TEdit) then
        begin
          {
            Aquí podrías acceder al valor del TEdit:

            TEdit(Self.Components[i].Components[j]).Text
          }
        end;
      end;
    end;
  end;
end;

Sim embargo
 

debo decir que algo asi hacia y me daba un error que ya resolvi ..en las declaraciones de variables no las estaba declarando de tipo integer sino byte, bien ahora se presenta otra cosa estoy usando mi codigo y el sugerido (que difieren solo en el self ) y no accede a los elementos dentro del panel ...es como que no existieran dentro del el o el no fuera su conteneder por ejemplo
digo
dentro del ciclo
showmessage('total de componentes : ' +inttostr(self.Components[i].ComponentCount));

y me devuelve un flamante 0 ...hombre como decimos aca " que vaina es esa"

Muy posiblemente así sea. Normalmente Panel.Components es la lista de los componentes cuyo dueño (owner) es el panel y no los que estén contenidos en él. Para ello es mejor usar Controls y ControlCount:

Código Delphi [-]
for I := 0 to Panel.ControlCount -1 do
  HazAlgoCon(Panel.Controls[i]);

// Saludos

Hola,

Para repetírselo uno hasta tenerlo claro. Buena anotación Román. :)

Pues comenzando que es gerundio...

:D

// Saludos

Mensaje recibido lo hare asi
 

bueno ya entendi, repetire la linea anterior para no olvidarla ....

claro hare un
for i:=1 to 10000 do showmessage('no debo confundir components con controls ni owner con parent');



jejeje es broma amigos yo soy el primero en reconocer mi ignorancia

no tienen idea de lo agradecido que estoy, recuerden sus primeros pasos y la impotencia que daba tener un problema y no encontrar la solucion....en serio gracias

que tal julioctorresg

podrias compartirme la forma en la que controlas los controles que estan dentro de un panel

estoy tratando de poder controlar algunas de las propiedades de los controles ue estan dentro de un panel, como por ejemplo no activar un boton fuera del panel si algun control dentro del panel esta vacio o en caso de listbox y combobox estan sin seleccion te lo agradeceria