Clonando objetos no delphi

Question

Ol� amigos, gostaria de clonar um data set

function getCloneDataSet(dataSet:Tdataset):Tdataset;
 var localDataSet:Tdataset;
begin
  localDataset := Tdataset.create(nil);
  //aqui quero clonar o "dataset"(par�metro) para a variavel local(localDataset)

Result := localDataset;
end;

Eduardo Junqueira · Accepted Answer

Ol� Tudo bem, qual forma ?...

Thomaz_prg · Answer

Bom, se for um ClientDataset pode usar o m�todo CloneCursor.
Se for outro dataset ou outro componente use a fun��o que disponibilizei no link abaixo:
http://ube-167.pop.com.br/repositorio/28488/meusite/dica035.htm

Joaohenriquemf · Answer

Ol�, estou tendo um problema na clonagem do component pois n�o estou usando clientdataset tive que usar o c�digo de clonagem.

estou usando ela da seguinte forma:

constructor TDataSetCopier.create(dataSet: TDataSet);
begin
  inherited Create();
  Self.localDataSet := TDataSet.Create(nil);
  Self.localDataSet := TDataSet(CloneComponent(dataSet));
  Self.setEvents();
end;

//fun��o para clonar component.
function CloneComponent(Component : TComponent):TComponent;
var
    ms : TMemoryStream;
    clone : TComponent;
begin
    ms := TMemoryStream.Create;
    try
        ms.WriteComponent(Component) ;
        ms.Position := 0;
        clone := TComponentClass(component.ClassType).Create(Application) ;
        ms.ReadComponent(clone) ;
    finally
        ms.Free;
    end;
    Result := Clone;
end;

O componente que estou passando no construtor da classe, que um TZQuery aberto(open, state=browse).

O ocorre o erro na linha

 ms.ReadComponent(clone);

Erro:
---------------------------
Prjdatasetcopier
---------------------------
Database connection component is not assigned.
---------------------------
OK
---------------------------

O que est� ocorrendo?

Thomaz_prg · Answer

A fun��o j� instancia um objeto em mem�ria. Tente alterar o trecho do seu construtor para:

constructor TDataSetCopier.create(dataSet: TDataSet);
begin
inherited Create();
Self.localDataSet := TDataSet(CloneComponent(dataSet));
Self.setEvents();
end;

Outra coisa, o seu localDataSet � o mesmo tipo de dataset que est� sendo clonado? Pois pode ser que esteja dando problema justamente na clonagem de objetos de diferentes tipos.

Joaohenriquemf · Answer

Acabei tendo que fazer de outra forma.Obrigado pela ajuda amigos....