From a5170425aa58688f6f07b002e7b48d4281a808ee Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 17 Mar 2012 12:40:23 +0000
Subject: [PATCH]  * setblockreadsize virtual, noticed when cleaning out old
 bugreport #8203.

git-svn-id: trunk@20532 -
---
 packages/fcl-db/src/base/db.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/base/db.pas b/packages/fcl-db/src/base/db.pas
index a8abd31864..9b436f8349 100644
--- a/packages/fcl-db/src/base/db.pas
+++ b/packages/fcl-db/src/base/db.pas
@@ -1406,7 +1406,7 @@ type
     Function GetActive : boolean;
     Procedure UnRegisterDataSource(ADatasource : TDatasource);
     Procedure UpdateFieldDefs;
-    procedure SetBlockReadSize(AValue: Integer);
+    procedure SetBlockReadSize(AValue: Integer); virtual;
     Procedure SetFieldDefs(AFieldDefs: TFieldDefs);
     procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean);
   protected