如何使用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);