Datensatz in einer Datenbank kopieren

[philubb]

hier mein code:

Aufruf einfach per OnClickEvent eines Buttons.

Delphi-Quellcode:

procedure TFormMain.Kopieren(aDataSet:TDataSet);
var
  Data : array of Variant;
  aRecord : array of TVarRec;
  i : integer;
  max : integer;
begin

  max := 8;
  SetLength(arecord,max+1);
  SetLength(data,max+1);

  for i := 0 to max do
  begin
    arecord[i].VType := vtVariant;
    arecord[i].VVariant := @data[i];
  end;

  Data[1] := aDataSet.FieldValues['BESCHREIBUNG'];
  Data[2] := aDataSet.FieldValues['NENNSTROM'];
  Data[3] := aDataSet.FieldValues['NENNSPANNUNG'];      //Felder die ich kopieren möchte, andere bleiben leer;
  Data[4] := aDataSet.FieldValues['HZ'];
  Data[5] := aDataSet.FieldValues['DREHM_ZAHL'];
  Data[6] := aDataSet.FieldValues['KAUFPREIS'];
  Data[7] := aDataSet.FieldValues['PRIORITAET'];
  Data[8] := aDataSet.FieldValues['BESTELL_NR'];


  aDataSet.Append;
  aDataSet.SetFields(aRecord);

end;