Browse Source

* Move fdbf back to private section

Michaël Van Canneyt 3 years ago
parent
commit
9d776f058e
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)
   TDbf = class(TDataSet)
   private
   private
+    FDbfFile: TDbfFile;
     FCursor: TVirtualCursor;
     FCursor: TVirtualCursor;
     FOpenMode: TDbfOpenMode;
     FOpenMode: TDbfOpenMode;
     FStorage: TDbfStorage;
     FStorage: TDbfStorage;
@@ -249,7 +250,6 @@ type
     procedure SetRangeBuffer(LowRange: PChar; HighRange: PChar);
     procedure SetRangeBuffer(LowRange: PChar; HighRange: PChar);
 
 
   protected
   protected
-    FDbfFile: TDbfFile;
 
 
     { abstract methods }
     { abstract methods }
     function  AllocRecordBuffer: TRecordBuffer; override; {virtual abstract}
     function  AllocRecordBuffer: TRecordBuffer; override; {virtual abstract}