paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 43211 from trunk:

Browse Source 
------------------------------------------------------------------------
    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 -
This commit is contained in:
michael 2019-10-19 12:04:04 +00:00
parent c31f787eb2
commit 12117f7caf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sdf/sdfdata.pp
View File

@ -283,7 +283,7 @@ type
procedure InternalInitFieldDefs; override; procedure InternalInitFieldDefs; override;
function BufToStore(Buffer: TRecordBuffer): String; override; function BufToStore(Buffer: TRecordBuffer): String; override;
function StoreToBuf(Source: String): 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 public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
published published