+ Size should be 0 for integer and float fields (fix bug #4122)

git-svn-id: trunk@1567 -

fcl/db/fields.inc

@@ -42,14 +42,6 @@ begin
   FSize:=ASize;
   FRequired:=ARequired;
   FPrecision:=-1;
-  // Correct sizes.
-  If FDataType=ftFloat then
-    begin
-    If Not (FSize in [4,8,10]) then FSize:=10
-    end
-  else If FDataType in [ftWord,ftsmallint,ftinteger] Then
-    If Not (byte(FSize) in [1,2,4]) then FSize:=4;
-
   FFieldNo:=AFieldNo;
 end;