Modificar propiedad de varios componentes del mismo tipo

[ecfisa]

Hola chartres.

pero yo quiero una funcion que busque por tipo de componente y a todos por ejemplo les diga
Tquery.open;
sin importar el nombre que tengan. ya que no puedo ponerle a todos query1,quey2 ..etc,

Te pongo un ejemplo que abre todos los TIBQuery de un form:

Código Delphi [-]
...
var
  i: Integer;
begin
  for i:= ComponentCount -1  downto 0 do
    if Components[i] is TIBQuery then
      (Components[i] as TIBQuery).Open;
end;

Si utilizas BDE deberás evaluar por TQuery, si ADO por TADOQuery, etc.

Saludos.