* Add convenience method for adding fielddefs

git-svn-id: trunk@26779 -

packages/fcl-db/src/base/db.pas

@@ -211,6 +211,7 @@ type
   public
     constructor Create(ADataSet: TDataSet);
 //    destructor Destroy; override;
+    Function Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean; AFieldNum : Integer) : TFieldDef; overload;
     procedure Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean); overload;
     procedure Add(const AName: string; ADataType: TFieldType; ASize: Word); overload;
     procedure Add(const AName: string; ADataType: TFieldType); overload;

packages/fcl-db/src/base/fields.inc

@@ -198,7 +198,7 @@ begin
   // fieldno is 1 based !
   BeginUpdate;
   try
-    FieldDefClass.Create(Self,AName,ADataType,ASize,Arequired,Count+1);
+    Add(AName,ADataType,ASize,Arequired,Count+1);
   finally
     EndUpdate;
   end;
@@ -225,6 +225,11 @@ begin
   Inherited Create(ADataset, Owner, FieldDefClass);
 end;
 
+function TFieldDefs.Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean; AFieldNum: Integer): TFieldDef;
+begin
+  Result:=FieldDefClass.create(Self,AName,ADataType,ASize,ARequired,AFieldNum);
+end;
+
 procedure TFieldDefs.Assign(FieldDefs: TFieldDefs);
 
 Var I : longint;