Kopieren von kompl. Datensätzen in einer dBase-DB mit Delphi

[Stefan Petzig]

Ich habe das Problem, daß ich in einer bBase Datenbank im Rahmen einer Auftragsbearbeitung einen kompletten Datensatz "einfach nur" kopieren muß. Gibt es in Delphi eine möglichkeit, das ohne große Klimmzüge zu machen. Nach dem Umkopieren wird er dann mit einer neuen Nummer versehen und ist somit eindeutig zu identifizieren. Im dBase für DOS habe ich das Problem über die Funktion copy to array gelöst, konnte aber die Memofelder nicht "mitnehmen".

Grüsse S.Petzig

[Andreas Kosch]

Hallo,

ich würde zuerst probieren, ob der folgende Weg zum Erfolg führt. Mit meiner frisch angelegte dBASE-Tabelle kann ich alle Spalten inklusive des Memofeldes kopieren:
<pre>
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 begin
aField[i] := DataSet.Fields[i].Value;
end;
DataSet.Append;
for i := 0 to (DataSet.FieldCount - 1) do begin
DataSet.Fields[i].Value := aField[i];
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AppendCurrent(Table1);
end;
</pre&gt

Vielen Dank für den Tip.

MfG Petzi