给定嵌套的TClientDataSet,如何在详细信息TClientDataSet上找到链接字段名称?

我正在将数据从一个TClientDataSet复制到另一个(逐条记录),并且我想自动忽略链接字段。

我也可以使用TClientDataSet.Data属性复制数据,但仍然需要清除链接和键字段。

最佳答案

您可以检查详细信息/嵌套数据集的“ DataSetField”属性,或访问主数据集的“ NestedDataSet”属性。

获取“链接”字段名称的示例代码:

function GetCDSDLinkFieldName(cds: TClientDataSet): string;
var
  i: Integer;
  cdsDetail: TClientDataSet;
begin
  Result := EmptyStr;
  cdsDetail := nil;
  if Assigned(cds.DataSetField) then
    cdsDetail := cds;
  if not Assigned(cdsDetail) and (cds.FieldCount > 0) then
  begin
    i := 0;
    while not Assigned(cdsDetail) and (i < cds.FieldCount) do
    begin
      if cds.Fields[i].DataType = ftDataSet then
        cdsDetail := TClientDataSet(TDataSetField(cds.Fields[i]).NestedDataSet);
      Inc(i);
    end;
  end;
  if Assigned(cdsDetail) then
    Result := cdsDetail.DataSetField.FieldName;
end;


调用示例:

procedure ...
begin
  ShowMessage(GetCDSDLinkFieldName(cdsMaster));
  ShowMessage(GetCDSDLinkFieldName(cdsDetail));
end;


附注:两年后,我认为这个答案不会帮助问题的作者,但也许可以帮助其他搜索同一主题的人。

关于delphi - 如何在嵌套的TClientDataSet上找到“外键”字段名称?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/3155061/

10-09 02:51