From 85799f1bf7a39c7d0e9f03942c8e5a089079496e Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Thu, 17 Oct 2019 12:59:25 +0000
Subject: [PATCH] fcl-db: sdf: add virtual to ExtractDelimited(). Bug #36190

git-svn-id: trunk@43211 -
---
 packages/fcl-db/src/sdf/sdfdata.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sdf/sdfdata.pp b/packages/fcl-db/src/sdf/sdfdata.pp
index 91c42aa5fa..2d840f10ba 100644
--- a/packages/fcl-db/src/sdf/sdfdata.pp
+++ b/packages/fcl-db/src/sdf/sdfdata.pp
@@ -287,7 +287,7 @@ type
     procedure InternalInitFieldDefs; override;
     function BufToStore(Buffer: TRecordBuffer): String; override;
     function StoreToBuf(Source: String): String; override;
-    function ExtractDelimited(const S: String; var Pos: integer): string;
+    function ExtractDelimited(const S: String; var Pos: integer): string; virtual;
   public
     constructor Create(AOwner: TComponent); override;
   published