Delphi-Quellcode:
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);
1. DeddyH hat ja schon angemerkt, daß der Index von Data von 0..7 und nicht von 1..8 geht.
2. Du erwähnst im Kommentar zu Data[3]
"Felder die ich kopieren möchte, andere bleiben leer;". Woher soll SetFields denn wissen, welche Felder es mit den Daten des Variant-Arrays setzen soll? SetFields geht davon aus, daß das Array Daten für alle Felder in der richtigen Reihenfolge enthält. Willst du nur einzelne Felder befüllen, dann musst du jedes Feld einzeln setzen.