ClientDataSet动态创建选择字段

最新推荐文章于 2023-09-27 15:01:34 发布

缘中人

最新推荐文章于 2023-09-27 15:01:34 发布

阅读量2.8k

点赞数

分类专栏： C++builder

本文链接：https://blog.youkuaiyun.com/cb168/article/details/8598465

版权

C++builder 专栏收录该内容

131 篇文章

订阅专栏

本文介绍了一个使用Delphi创建客户端数据集中的自定义布尔字段的过程。通过关闭数据集、清除现有字段定义并创建新的布尔字段来实现。这个字段被命名为SelectMe，并设置其显示标签和其他属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

void __fastcall TForm1::createField()
{
ClientDataSet1->Close();
//for(int i = 0 ;i < ClientDataSet1->Fields->Count - 1;i++)
//   ClientDataSet1->Fields->Fields[0]->Free();//释放所有的静态字段
   ClientDataSet1->Fields->Clear();
// for(int i = 0 ;i < ClientDataSet1->FieldDefs->Count - 1;i++)
//    ClientDataSet1->FieldDefs->Items[i]->Free();
ClientDataSet1->FieldDefs->Clear();

ClientDataSet1->Open();
ClientDataSet1->Close();
for(int i = 0 ;i < ClientDataSet1->Fields->Count - 1;i++)
ClientDataSet1->Fields->Fields[0]->Free();//释放所有的静态字段
for(int i = 0 ;i < ClientDataSet1->FieldDefs->Count - 1;i++)
ClientDataSet1->FieldDefs->Items[i]->CreateField(ClientDataSet1);

TBooleanField *NewField;
NewField = new TBooleanField(ClientDataSet1);
NewField->FieldName="SelectMe";
NewField->DisplayLabel = "选择";
NewField->FieldKind=fkInternalCalc;
NewField->DataSet=ClientDataSet1;
NewField->Index = 0;
ClientDataSet1->Open();
}