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