چطور یک فیلد به لیست فیلدهای یک dataset

[محمد دادودنیا]

چطور یک فیلد به لیست فیلدهای یک dataset
(DataSet.Fields) اضافه کنم در زمان اجرا ؟

[mzjahromi]

یه چیزی شبیه به این


Procedure TForm1.NewField(DataSet1:TDataSet;FieldName1:Strin g;FieldKind1:TFieldKind;
FieldType1:TFieldType;FieldSize1:Integer);
Begin
with TStringField.Create(Dataset1) do
begin
FieldName := FieldName1;
FieldKind := FieldKind1;
DataSet := DataSet1;
Name := DataSet.Name + FieldName;
DataSet.FieldDefs.Add(FieldName, FieldType1, FieldSize1, False);
end;
End;