Função Para Ativar Clientdataset

[maikel]

Bom dia...

Estou quebrando a cabeça e não consigo achar um jeito de criar uma função ou uma procedure, que eu chame ela quando crio o Form (estou criando os forms em tempo de execução) e que esta função ative o ClientDataSet que está em um data Module.

A função precisaria pegar do form que estou criando, no DataSource o nome do ClientDataSet, e ativar este ClientDataSet no DataModuleCadastros...

Alguém pode me ajudar com essa função ou procedure, eu até pensei em passar o nome do Form para a função..mas mesmo assim não estou conseguindo fazer..

Não sei se consegui explicar bem, mas se Alguém puder ajudar...Agradeço..

Maikel Scheid

maikel@setrem.com.br

Três de Maio - RS

[Micheus]

veja se isto lhe atende:

procedure OpenDataSet(Form :TForm);
var
  Idx :Integer;
begin
  for Idx := 0 to Form.ComponentCount -1 do
    if Form.Components[Idx] is TDataSource then
    try
      (Form.Components[Idx] as TDataSource).DataSet.Open;
    except
    end;
end;

Este procedimento varrerá o form passado como parâmetro e, ao encontrar cada DataSource, abrirá o respectivo DataSet(que, dentre os vários possíveis, será um ClientDataSet no seu caso).

[maikel]

Ótimo Micheus....

Muito obrigado pela ajuda.....era isso mesmo que eu precisava....

Valeu....

Att....Maikel