Salve a tutti,

uso Delphi 7 update 1 con dbExpress.
Avrei la necessità di clonare o se volete copiare tutto il contenuto di un un componente TClientDatSet
in un altro medesimo componente e lavorare su entrambi separatamente.
Ho provato ad impostare il seguente codice ma ottengo un Access Violation.
Premetto che i campi presente nel TClientDatSet di origine, sono i più disparati, ossia di tipo varchar, char,datetime,bit,currency. La base di dati lavora su sql 2005.

Questa creazione del clone la voglio eseguire in run-time.
Vi allego il codice che ho impostato:

       for Indice := 0 to origine.Fields.Count - 1
         do
          begin
            Clone.FieldDefs.AddFieldDef.DataType:=origine.FieldDefs[Indice].DataType;
            Clone.FieldDefs.AddFieldDef.Name:=origine.FieldDefs[Indice].Name;
            Clone.FieldDefs.AddFieldDef.Size:=origine.FieldDefs[Indice].Size;
            Clone.IndexDefs.AddIndexDef.Fields:=origine.IndexDefs[indice].Fields;
            Clonet.IndexDefs.AddIndexDef.Name:=origine.IndexDefs[indice].Name;
            Clone.CreateDataSet;
        end;          

Accetto qualsiasi suggerimento...

mi stavo perdendo in una goccia d'acqua...
ho risolto così.--    

       CloneClientDataSet:=TClientDataSet.Create(nil);
       CloneClientDataSet.CloneCursor(origine,True);

Per "clonare" un TClientDataSet, è sufficiente assegnare alla proprietà Data del secondo CDS il valore della proprietà Data del primo CDS: in questo modo, dovrebbe essere possibile copiare struttura e dati.

Ciao!