delphi – 有没有更好的方法将所有DataSet字段及其属性复制到另

发布时间：2020-12-15 04:29:25 所属栏目：大数据来源：网络整理

导读：我正在克隆一个TClientDataSet,我想将所有字段复制到克隆(这是一个新的DataSet),我知道我可以循环遍历Fields并复制信息,或者创建我的类的2个实例,然后克隆光标,但有更好的方法吗？像创建一个新的DataSet并分配字段信息？编辑：以下类助手方法适用于我： pr

我正在克隆一个TClientDataSet,我想将所有字段复制到克隆(这是一个新的DataSet),我知道我可以循环遍历Fields并复制信息,或者创建我的类的2个实例,然后克隆光标,但有更好的方法吗？像创建一个新的DataSet并分配字段信息？

编辑：

以下类助手方法适用于我：

procedure TDataSetHelper.CopyFieldDefs(Source: TDataSet);
var
  Field,NewField: TField;
  FieldDef: TFieldDef;
begin
  for Field in Source.Fields do
  begin
    FieldDef := FieldDefs.AddFieldDef;
    FieldDef.DataType := Field.DataType;
    FieldDef.Size := Field.Size;
    FieldDef.Name := Field.FieldName;

    NewField := FieldDef.CreateField(Self);
    NewField.Visible := Field.Visible;
    NewField.DisplayLabel := Field.DisplayLabel;
    NewField.DisplayWidth := Field.DisplayWidth;
    NewField.EditMask := Field.EditMask;

   if IsPublishedProp(Field,'currency')  then
     SetPropValue(NewField,'currency',GetPropValue(Field,'currency'));

  end;
end;

有人有更好的方法吗？

解决方法

您是在寻找更美观的方式还是更快捷的方式？

如果是前者,则创建自己的隐藏循环的类.

如果是后者,甚至不用担心.一位非常明智的编码员曾对我说过：磁盘访问成本;网络接入成本;可能是屏幕访问成本;其他一切都是免费的.

不要将源代码的大小与执行时间混淆.与数据库连接的初始握手相比,通过内存和复制位循环一千次是不可检测的.

干杯

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!