ClientDataSet动态创建选择字段

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();
}