Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin {Aquí aparece una estructura de bucle con la sentencia for. Sirve para repetir una operación tantas veces como se indique mediante un contador. En este caso el contador es i, que recorre desde 0 hasta el número de componentes -1 que tenga el formulario; La palabra reservada do forma parte de la sintaxis de la estructura del bucle for.} for i := 0 to ComponentCount -1 do if Components[i] is TPanel then //aqui se verifica el tipo de componente. //y con su propiedad tag se puede verficar a que fila pertenece if (TPanel(Components[i]).tag) = 0 then begin {Pon tu código aqui} end end;
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin {Aquí aparece una estructura de bucle con la sentencia for. Sirve para repetir una operación tantas veces como se indique mediante un contador. En este caso el contador es i, que recorre desde 0 hasta el número de componentes -1 que tenga el formulario; La palabra reservada do forma parte de la sintaxis de la estructura del bucle for.} for i := 0 to ComponentCount -1 do if Components[i] is TPanel then //aqui se verifica el tipo de componente. //y con su propiedad tag se puede verficar a que fila pertenece if (TPanel(Components[i]).tag) = 0 then begin {Pon tu código aqui} end end;