Как добавить копию текущей записи

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

procedure AppendCurrent(Dataset:Tdataset);

var

aField: Variant ;

i: Integer ;

begin

// Создаём массив

aField := VarArrayCreate([0,DataSet.Fieldcount-1],VarVariant);

// считываем значения в массив

for i := 0 to (DataSet.Fieldcount-1) do

aField[i] := DataSet.fields[i].Value ;

DataSet.Append ;

// помещаем значения массива в новую запись

for i := 0 to (DataSet.Fieldcount-1) do

DataSet.fields[i].Value := aField[i] ;

end;

{/codecitation}

Добавить комментарий