Title: How to append a copy of the current record
Question:
Answer:
Will append an exact copy of the current record of the dataset
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
aField[i] := DataSet.fields[i].Value ;
DataSet.Append ;
// put array values into new the record
for i := 0 to (DataSet.Fieldcount-1) do
DataSet.fields[i].Value := aField[i] ;
end;