Browse Source

* Move fdbf back to private section

(cherry picked from commit 9d776f058e238e618459630848265f9bd5e008b5)
Michaël Van Canneyt 3 years ago
parent
commit
4b2a7681b4
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/dbase/dbf.pas

+ 1 - 1
packages/fcl-db/src/dbase/dbf.pas

@@ -163,6 +163,7 @@ type
 //====================================================================
   TDbf = class(TDataSet)
   private
+    FDbfFile: TDbfFile;
     FCursor: TVirtualCursor;
     FOpenMode: TDbfOpenMode;
     FStorage: TDbfStorage;
@@ -249,7 +250,6 @@ type
     procedure SetRangeBuffer(LowRange: PChar; HighRange: PChar);
 
   protected
-    FDbfFile: TDbfFile;
 
     { abstract methods }
     function  AllocRecordBuffer: TRecordBuffer; override; {virtual abstract}