Hola chartres.
Cita:
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.