Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* setblockreadsize virtual, noticed when cleaning out old bugreport #8203.

git-svn-id: trunk@20532 -
marco 13 years ago
parent
a6fd41b1d1
commit
a5170425aa
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-db/src/base/db.pas

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

@@ -1406,7 +1406,7 @@ type
 
     Function GetActive : boolean;
 
     Function GetActive : boolean;
 
     Procedure UnRegisterDataSource(ADatasource : TDatasource);
 
     Procedure UnRegisterDataSource(ADatasource : TDatasource);
 
     Procedure UpdateFieldDefs;
 
     Procedure UpdateFieldDefs;
 
-    procedure SetBlockReadSize(AValue: Integer);
 
+    procedure SetBlockReadSize(AValue: Integer); virtual;
 
     Procedure SetFieldDefs(AFieldDefs: TFieldDefs);
 
     Procedure SetFieldDefs(AFieldDefs: TFieldDefs);
 
     procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean);
 
     procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean);
 
   protected
 
   protected