Browse Source

* Made TIntegerField a descendant of TLongintField

git-svn-id: trunk@17381 -
michael 14 years ago
parent
commit
576072dc17
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/base/db.pas

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

@@ -553,7 +553,7 @@ type
     property MaxValue: Longint read FMaxValue write SetMaxValue default 0;
     property MinValue: Longint read FMinValue write SetMinValue default 0;
   end;
-  TIntegerField = TLongintField;
+  TIntegerField = Class(TLongintField);
 
 { TLargeintField }