记录集中的记录如何复制和粘贴
adodataset1.setfields(arry1)可以粘贴，但如何将某记录复制到arry1中 问题点数：50、回复次数：4Top
1 楼rikky（Java转型中ing...）回复于 2003-01-07 12:54:46 得分 0
你为什么要这样实现啊Top
2 楼qq002（a）回复于 2003-01-07 13:06:42 得分 0
实现整条记录复制和粘贴。Top
3 楼xianxiangzi（祥子）回复于 2003-01-07 13:11:08 得分 0
通过数组可以实现Top
4 楼xianxiangzi（祥子）回复于 2003-01-07 13:33:17 得分 50
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;
Top
