delphi 在DataSet间快速拷贝一笔记录|笨鱼技术网

  通常，你完成此项任务时使用 TBatchMove 构件。但 TBatchMove 也有不合适的情况：
  - 你并不希望拷贝所有的记录，也不想使用过滤器。
  - 你希望用到目的 DataSet 的有效事件（如 BeforPost，OnValidate，等）。
  - 或者更坏的情况，两 DataSet 的结构并不相同。
  使用下面的简单过程，上面的问题都可以被解决，所有字段中的数据将被拷贝到另外一个 Dataset 中的同名字段中。但这里面也存在一些限制：
  - 不能拷贝查找和计算字段
  - 当存在相同字段名但数据类型不同时，你需要先使用 Assign 判断。
  - 当然，目的字段不能是只读的。

  procedure CopyRecord(Source, Destination: TDataSet);
  var Ind:longint;
      SField, DField: TField;
  begin
    for Ind:=0 to Source.FieldCount - 1 do
     begin
       SField := Source.Fields[ Ind ];
       DField := Destination.FindField( SField.FieldName );
       if (DField <> nil) and (DField.FieldKind = fkData) and
          not DField.ReadOnly then
          if (SField.DataType = ftString) or
             (SField.DataType <> DField.DataType) then
             DField.AsString := SField.AsString
          else
             DField.Assign( SField )
     end;
  end;

  旧方法：

    DEST.Open;
    ORIGIN.Open;
    while not ORIGIN.Eof do
    begin
      if ORIGINTYPE.AsString = 'T' then
        with ORIGIN do
        begin
          DEST.Append;
          DEST.FieldByName('TYPE').AsString := ORIGINTYPE.AsString;
          DEST.FieldByName('FIRSTNAME').AsString := ORIGINFIRSTNAME.AsString;
          DEST.FieldByName('LASTNAME').AsString := ORIGINLASTNAME.AsString;
          DEST.FieldByName('CPF').AsString := ORIGINCPF.AsString;
          DEST.FieldByName('PARTY').AsString := ORIGINPARTY.AsString;
          DEST.Post;
        end;
       ORIGIN.Next;
    end;

  使用该过程的调用示范：

    DEST.Open;
    ORIGIN.Open;
    while not ORIGIN.Eof do begin
      if ORIGINTYPE.AsString = 'T' then begin
         DEST.Append;
         CopyRecord( ORIGIN, DEST );
         DEST.Post;
      end;
      ORIGIN.Next;
    end;