fcl-db: sdf: add virtual to ExtractDelimited(). Bug #36190

git-svn-id: trunk@43211 -
This commit is contained in:
lacak 2019-10-17 12:59:25 +00:00
parent bb4402b2a4
commit 85799f1bf7

View File

@ -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