Cita:
Posteado originalmente por orfeo
for i:=0 to (DataModule1.ComponentCount-1) do
if (DataModule1.Components[i] is Tquery)
then begin
ClassRef :=DataModule1.Components[i].ClassType;
Tquery(ClassRef).close;
end;
|
No entiendo por qué el uso de ClassType. Me parece que bastaría poner:
Código:
TQuery(DataModule1.Components[i]).Close;
// Saludos