|
用數(shù)據(jù)可以實(shí)現(xiàn) procedure Tform1.AppendCurrent(Dataset:Tdataset); Var aField : Variant ; i : Integer ; Begin //創(chuàng)建一個(gè)variant類型的數(shù)組 aField := VarArrayCreate([0,DataSet.Fieldcount-2],VarVariant); // 把數(shù)據(jù)集當(dāng)前數(shù)據(jù)讀入數(shù)組中 For i := 0 to (DataSet.Fieldcount-2) Do Begin aField[i] := DataSet.fields[i+1].Value ; End; DataSet.Append ; // 從數(shù)組中讀出數(shù)據(jù)倒數(shù)據(jù)集中 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; |
|
|
