Ich mache das immer so:
Delphi-Quellcode:
Procedure AddStringField(aDS : TDataSet; aFieldName : String; aMaxSize : Integer);
Var
f : TField;
Begin
With TStringumericField.Create (aDS ) Do Begin
FieldName := sName;
Calculated := False;
FieldKind := fkData;
DataSet := aDS;
Size := aMaxSize;
End;
aDS.fieldDefs.update;
End;
Entsprechend für TNumericField, TInterField, TDateTimeField etc. Mit FieldDefs habe ich es nicht hinbekommen...