Переглянути джерело

* Made TIntegerField a descendant of TLongintField

git-svn-id: trunk@17381 -
michael 14 роки тому
батько
коміт
576072dc17
1 змінених файлів з 1 додано та 1 видалено
  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 }