如何在运行时使用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;

现在我想把一些字段设为必填项，我该怎么定义一个在运行时创建的字段为必填项？

- Salvador

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

- RRUZ