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