Instanciar objeto a partir de outro

Question

Bom dia,Estou precisando instanciar um DataSet(TZMySqlQuery) novo a partir de um DataSet(TZMySqlQuery) j� existente e configurado que se encontra em um DM(Data Module).Pra isso tentei o seguinte:[code...

Marco Salles · Answer

[quote:76a765a63b]C�digo: dDataSet    :=  DM.zQueryMaster; [/quote:76a765a63b][quote:76a765a63b] ...Mas ao inv�s disso o novo DataSet(TZMySqlQuery) est� apontando para o DataSet j� existente (Ponteiro) e qualquer altera��o que eu fa�a no DataSet instanciado atinge tamb�m o DataSet original... [/quote:76a765a63b]Na realidade , como voce mesmo deve ter notado , voce ao Fazer a Atribui��o , voce perde a referencia ao Objeto criado , e em Lugar Disso , aponta para o mesmo Lugar na memori� do Objeto DM.zQueryMasterA maneira de se fazer isto � usando o M�todo Assign , desde que devidamente implementado pela classe descedente.. O problema � que Todas as Classes VCL que herdam da TPersistent tem o M�todo Assignd , porem a Maioria que Herdam Da TComponent n�o H� Implemetam , Fazendo Aparecer uma Exce��o a Se Chamado..Existe tamb�m , uma tecnica denominada Serializa��oDe Objetos , que pode se utilizada entre outros Recursos para persistir Objetos. Eu acho que o seu caminhop n�o deve fugir a essas Duas Linhas de Raciocineo , salvo m�todo pr�prio do componente que eu particularmente desconhe�o por n�o utiliza-lo...

Polo · Answer

Consegui resolver o problema da seguinte maneira:

procedure TfrmPrincipal.preenchePropriedades(var dDataSet1  : TZMySqlQuery; var dDataSet2 : TZMySqlQuery);
var
  listaPropriedades : TPropList;
  qtd, n            : Integer;
begin
  try
  qtd :=  GetPropList(TypeInfo(TZMySqlQuery), tkAny, @listaPropriedades);
  for n := 0 to qtd - 2 do begin
    if (listaPropriedades[n]^.PropType^.Kind <>  tkMethod) and (listaPropriedades[n]^.PropType^.Kind <>  tkClass) then begin
      SetPropValue(dDataSet1, listaPropriedades[n]^.Name,GetPropValue(dDataSet2, listaPropriedades[n]^.Name));
    end else if (listaPropriedades[n]^.PropType^.Kind =  tkMethod) then begin
      SetMethodProp(dDataSet1, listaPropriedades[n]^.Name,GetMethodProp(dDataSet2, listaPropriedades[n]^.Name));
    end else if (listaPropriedades[n]^.PropType^.Kind =  tkClass) then begin
      SetOrdProp(dDataSet1, listaPropriedades[n]^.Name,GetOrdProp(dDataSet2, listaPropriedades[n]^.Name));
    end;
  end;
  except
    on e: Exception do begin
      ShowMessage(IntToStr(n));
    end;
  end;
end;

Recuperando todas as propriedades e m�todos que est�o no dDataSet2 e passando para o dDataSet1 tudo isso por refer�ncia e agora est� tudo ok!

:D

F�rum Instanciar objeto a partir de outro #337841