Datensatz kopieren und eintragen

[shmia]

Delphi-Quellcode:

procedure CopyDataSetRecord(Src,Dst: TDataSet);
var
   i: Integer;
   fSrc,fDst: TField;
begin
   for i := 0 to Src.FieldCount-1 do
   begin
      fSrc := Src.Fields[i];
      fDst := Dst.FindField(fSrc.FieldName);

      if Assigned(fDst) then
      begin
         fDst.Value := fSrc.Value;
      end;
   end;
end;