ClientDataSet 动态创建 计算字段 Field

ClientDataSet为一个中间件，很好用，但是也有种种问题的出现。

当ClientDataSet是静态创建的，那个，动态创建Field，正常。

var
  Field : TStringField;

begin
  Field := TStringField.Create(FClientDataSet);
  Field.FieldKind := fkCalculated;
  Field.FieldName := 'State';
  Field.Name := 'State';
  Field.DataSet := FClientDataSet;

end;

但是ClientDataSet是动态创建的，那么直接使用上面的代码，将只有这个动态创建的字段，别的字段全部不见了。

怎么办呢？

先读取ClientDataSet的提供者所提供的字段，然后再加入之上的代码，那么就可以了，提交数据也正常了。
    for i := 0 to FDataSetProvider.DataSet.Fields.Count - 1 do
    begin
      Field := TStringField.Create(FClientDataSet);
      Field.FieldKind := fkData;
      Field.FieldName:= FDataSetProvider.DataSet.Fields.Fields[i].FieldName;
      Field.Name:= FDataSetProvider.DataSet.Fields.Fields[i].Name;
      Field.DataSet := FClientDataSet;
    end; 

网上查了半天都没有找到直接的答案，现在做个笔记吧。