如何使用ClientDataset在运行时创建必填字段

Question

我正在使用此代码在运行时创建一组字段

  ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0);
  ClientDataSet1.FieldDefs.Add('Serial', ftInteger, 0);
  ClientDataSet1.FieldDefs.Add('Customer', ftString, 40);
  ClientDataSet1.FieldDefs.Add('Address', ftString, 40);
  ClientDataSet1.CreateDataSet;

现在我想强制使用某些字段,如何将运行时创建的字段定义为强制字段？

Answer 1

add方法有一个名为required的第四个参数

procedure Add(const Name: string; DataType: TFieldType; Size: Integer = 0;
  Required: Boolean = False);

将该值设置为True,您的字段将是必填字段.

示例强制该字段ID使用此代码

ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0, True);