delphi - 如何在Delphi中以编程方式向TAble添加字段

在我的Delphi 2009应用程序中，我需要检查字段是否存在以及在应用程序执行期间是否不添加字段。

我已经找到了该字段的测试，但是无法添加一个字段。我试过了

var
  fld : TStringField;
begin
  if not ADOConnection1.Connected then
    ADOConnection1.Open;
  fld := TStringField.Create(tbl);
  fld.FieldName := 'test';
  tbl.Fields.Add(fld);
end;

但这是行不通的。

最佳答案

试试这个

 fld:= TStringField.Create(tbl);
    fld.FieldName := 'test';
    fld.DisplayLabel := 'test';
    fld.name := 'test';
    fld.DataSet := tbl;
    fld.Size := 30;
    tbl.Fields.Add(fld);

再见

关于delphi - 如何在Delphi中以编程方式向TAble添加字段，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/1188829/