delphi - 実行時に TDataSetFields を作成できますか?

Question

実行時にデータセットとそのすべての詳細データセットのコピーを作成する簡単なコードがあります。

    DestDataSet.FieldDefs.Assign(SourceDataSet.FieldDefs);
    SourceDataSet.GetDetailDataSets(DetailList);
    for i := 0 to DetailList.Count - 1 do
    begin
      with DestDataSet.FieldDefs.AddFieldDef do
      begin
        Name := TDataSet(DetailList[i]).Name;
        DataType := ftDataSet;
      end;
      DetailCDSs.Add(NestedCDS);
    end;
    DestDataSet.CreateDataSet;

CreateDataSet「無効EDBClientなフィールド タイプ」というメッセージで例外が発生します。誰が何が悪いのか教えてもらえますか?

Answer 1

FieldDefフィールドを持つデータセットを作成する場合は、データセットを作成するftDataSet前に子定義を宣言する必要があります。