在DELPHI中在插入数据时，怎么将当前的数据拷贝到下一个新记录上。在FOXPRO中是用SET CARRY ON 命令，不知在DELPHI中怎么做

Question

我是菜鸟，用笨办法-取出再存。

Answer 1

Procedure AppendCurrent(Dataset:Tdataset);
Var
  aField : Variant ;
  i      : Integer ;
Begin
  //Create a variant Array
  aField := VarArrayCreate(
               [0,DataSet.Fieldcount-1],
                             VarVariant);  // read values into the array
  For i := 0 to (DataSet.Fieldcount-1) Do Begin
     aField[i] := DataSet.fields[i].Value ;
  End;  DataSet.Append ;  // Put array values into new the record
  For i := 0 to (DataSet.Fieldcount-1) Do Begin
     DataSet.fields[i].Value := aField[i] ;
  End;
End;