From 12117f7caff9e35b3e133dca1688c4aae1636af1 Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 19 Oct 2019 12:04:04 +0000 Subject: [PATCH] * Merging revisions 43211 from trunk: ------------------------------------------------------------------------ r43211 | lacak | 2019-10-17 14:59:25 +0200 (Thu, 17 Oct 2019) | 1 line fcl-db: sdf: add virtual to ExtractDelimited(). Bug #36190 ------------------------------------------------------------------------ git-svn-id: branches/fixes_3_2@43226 - --- 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 af09bf1cbc..9531146a52 100644 --- a/packages/fcl-db/src/sdf/sdfdata.pp +++ b/packages/fcl-db/src/sdf/sdfdata.pp @@ -283,7 +283,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