lazarus bugtracker

Index: dbctrls.pp
===================================================================
--- dbctrls.pp	(revision 38293)
+++ dbctrls.pp	(working copy)
@@ -1295,22 +1295,24 @@
 var
   FieldClasses: TFpList;
 
-procedure RegFields(const AFieldClasses: array of TFieldClass);
-var I: Integer;
-    FieldClass: TFieldClass;
+procedure RegField(const FieldClass: TFieldClass);
 begin
   if FieldClasses = nil then FieldClasses := TFpList.Create;
-  for I := Low(AFieldClasses) to High(AFieldClasses) do begin
-    FieldClass := AFieldClasses[I];
-    if (FieldClass <> Nil) And (FieldClasses.IndexOf(FieldClass) = -1) then
-    begin
-      FieldClasses.Add(FieldClass);
-      RegisterNoIcon([FieldClass]);
-      RegisterClass(FieldClass);
-    end;
+  if (FieldClass <> Nil) And (FieldClasses.IndexOf(FieldClass) = -1) then
+  begin
+    FieldClasses.Add(FieldClass);
+    RegisterNoIcon([FieldClass]);
+    RegisterClass(FieldClass);
   end;
 end;
 
+procedure RegFields(const AFieldClasses: array of TFieldClass);
+var I: Integer;
+begin
+  for I := Low(AFieldClasses) to High(AFieldClasses) do
+    RegField(AFieldClasses[I]);
+end;
+
 function ExtractFieldName(const Fields: string; var StartPos: Integer): string;
 var
   i: Integer;
@@ -1350,6 +1352,7 @@
     TDBImage,TDBListBox,TDBLookupListBox,TDBComboBox,TDBLookupComboBox,
     TDBCheckBox, TDBRadioGroup, TDBCalendar,TDBGroupBox]);
   RegFields(DefaultFieldClasses);
+  RegField(TIntegerField);
 end;
 
 function TFieldDataLink.FieldCanModify: boolean;