zoukankan      html  css  js  c++  java
  • TDataset.CopyFields

    Description

    Often when manipulating datasets with similar structures, you need to copy the records from one dataset to another.  E.g. you may have fetched some records in a query or clientdaset and have located the matching records in another dataset.  You might then want to ensure the record values match without refetching the target dataset.
    This looks like it would be easy to implement - i have rewritten it to take care of nested datasets as well as ordinary dataset fields.
    Steps to Reproduce:
    This is a requested new public method in the base TDataset class.
    function TDataSet.CopyFields(Source: TDataSet): Integer;
    // copies matching fields in current records- returns number of fields copied
    var
      FieldCtr: Integer;
      DestField, SourceField: TField;
    begin
      Result := 0;
      for FieldCtr := 0 to Source.FieldCount - 1 do begin
        SourceField := Source.Fields[FieldCtr];
        Field := FindField(SourceField.FieldName);
        if not Assigned(Field) then Continue;
        if Field.ClassType = TDataSetField then begin  // nested datasets
          while TDataSetField(Field).NestedDataSet.RecordCount > 0 do
            TDataSetField(Field).NestedDataSet.Delete;
          TDataSetField(SourceField).NestedDataSet.First;
          while not TDataSetField(SourceField).NestedDataSet.Eof do begin
            TDataSetField(Field).NestedDataSet.Append;
            CopyFields(TDataSetField(Field).NestedDataSet, TDataSetField(SourceField).NestedDataSet);
            TDataSetField(Field).NestedDataSet.Post;
            TDataSetField(SourceField).NestedDataSet.Next;
          end; 
        end else
          Field.Value := SourceField.Value;
        Inc(Result);
      end;
    end;
    
    
    This would typically be used as follows:
    
    SourceDS.First;
    while not SourceDS.EOF do begin
      if DestDS.Locate({info required to find matching record}) then begin
        DestDS.Edit;
        DestDS.CopyFields(SourceDS);
        DestDS.Post;
      end;
      SourceDS.Next;
    end; 
     
  • 相关阅读:
    vue中使用axios对同一个接口连续请求导致返回数据混乱的问题
    GitLab 项目
    pythonWeb开发
    $(function(){})里面不能定义函数
    elementUI el-cascader回显问题
    elementUI 弹框嵌套蒙层问题
    JS获取浏览器信息及屏幕分辨率
    mockjs导致element-ui upload组件的on-progress和axios的responseType失效
    vue中记录页面的滚动距离
    vue组件的inheritAttrs属性
  • 原文地址:https://www.cnblogs.com/cb168/p/4269551.html
Copyright © 2011-2022 走看看