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

* Add support for vaDouble

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-16 11:42:52 +01:00
parent 87a37e70ee
commit a320464afe
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/classesh.inc
View File

@ -1636,7 +1636,7 @@ type
TValueType = (vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended,
vaString, vaIdent, vaFalse, vaTrue, vaBinary, vaSet, vaLString,
vaNil, vaCollection, vaSingle, vaCurrency, vaDate, vaWString, vaInt64,
vaUTF8String, vaUString, vaQWord);
vaUTF8String, vaUString, vaQWord, vaDouble);
TFilerFlag = (ffInherited, ffChildPos, ffInline);
TFilerFlags = set of TFilerFlag;
@ -1696,6 +1696,7 @@ type
{$ifndef FPUNONE}
function ReadFloat: Extended; virtual; abstract;
function ReadSingle: Single; virtual; abstract;
function ReadDouble: Double; virtual; abstract;
function ReadDate: TDateTime; virtual; abstract;
{$endif}
function ReadCurrency: Currency; virtual; abstract;
@ -1761,6 +1762,7 @@ type
{$ifndef FPUNONE}
function ReadFloat: Extended; override;
function ReadSingle: Single; override;
function ReadDouble: Double; override;
function ReadDate: TDateTime; override;
{$endif}
function ReadCurrency: Currency; override;