nesecito enviar mensajes a objetos de un DataModule.Components[i]
hola, Uso Delphi 6 y quiero enviar mensajes a que todos los Tquery de un DataModule, mi codigo es:
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;
esto falla en el close, probe de varias maneras, pero sin muchos
resultados, salta errores de direcciones de memoria.
como podran ver mi POO de Delphi es 0
|