Cds 在复制一条记录

用数据可以实现
procedure   Tform1.AppendCurrent(Dataset:Tdataset);
Var
    aField   :   Variant   ;
    i             :   Integer   ;
Begin
  //创建一个variant类型的数组
    aField   :=   VarArrayCreate([0,DataSet.Fieldcount-2],VarVariant);

    //   把数据集当前数据读入数组中
    For   i   :=   0   to   (DataSet.Fieldcount-2)   Do
    Begin
          aField[i]   :=   DataSet.fields[i+1].Value   ;
    End;

    DataSet.Append   ;

    //   从数组中读出数据倒数据集中
    For   i   :=   0   to   (DataSet.Fieldcount-2)   Do
    Begin
          DataSet.fields[i+1].Value   :=   aField[i]   ;
    End;
End;


procedure   TForm1.Button1Click(Sender:   TObject);
begin
      self.AppendCurrent(ADOQuery1);
end;