Obtener todos los datasets de un tdatamodule

[jlrbotella]

Hola:

Me gustaría obtener todos los datasets de un datamodule para cambiar las propiedades de ellos en modo runtime.

Gracias,
José L.

[jachguate]

probá con esto:

Código Delphi [-]
procedure DataModule1.Configurar;
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TDataSet then
      TDataSet(Components[i]).Propiedad := Valor;
end;

Hasta luego.

[jlrbotella]

Gracias por

[jlrbotella]

Gracias por tu respuesta.