浏览代码

* Fixed overflow for large records (bug10003)

git-svn-id: trunk@11269 -
joost 17 年之前
父节点
当前提交
864f01ebea
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-db/src/sdf/sdfdata.pp

+ 2 - 2
packages/fcl-db/src/sdf/sdfdata.pp

@@ -162,8 +162,8 @@ type
     FRecBufSize         :Integer;
     FRecordSize         :Integer;
     FLastBookmark       :PtrInt;
-    FRecInfoOfs         :Word;
-    FBookmarkOfs        :Word;
+    FRecInfoOfs         :Integer;
+    FBookmarkOfs        :Integer;
     FSaveChanges        :Boolean;
   protected
     function AllocRecordBuffer: PChar; override;