Du willst einen Datensatz kopieren?
So etwa:
Delphi-Quellcode:
Procedure CopyCurrentDataset (MyDataset : TDataset);
Var
fFields : Array Of Variant;
i : Integer;
Begin
SetLength (fFields, MyDataset.FieldCount);
For i:=0 to MyDataSet.FieldCount - 1 do fFields[i] := MyDataSet.Fields(i).Value; // Alle Feldinhalte merken
MyDataset.Append;
For i:=0 to MyDataSet.FieldCount - 1 do MyDataSet.Fields(i).Value := fFields[i]; // Feldinhalte wieder zurückschreiben
MyDataset.Post;
End;
Die Prozedure fügt den aktuellen Datensatz ans Ende der Datenmenge ein.
Vorsicht bei Blobs (geht das dann?), bei AutoInc- und berechneten Feldern.. Die Sonderbehandlung musst Du noch einbauen (Case FieldType of ....)