pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:try to fix compile with FPC 3.2.2

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9096 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2023-12-20 06:07:16 +00:00
parent 8b8a73d887
commit 9de5afb44e
1 changed files with 47 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
components/rx/trunk/rxdb/ex_rx_xml_datapacket.pas
View File

@ -94,54 +94,54 @@ uses xmlwrite, xmlread, rxdconst;
const const
XMLFieldtypenames : Array [TFieldType] of String[15] = XMLFieldtypenames : Array [TFieldType] of String[15] =
( (
'Unknown', 'Unknown', //ftUnknown
'string', 'string', //ftString,
'i2', 'i2', //ftSmallint,
'i4', 'i4', //ftInteger,
'i4', 'i4', //ftWord,
'boolean', 'boolean', //ftBoolean,
'r8', 'r8', //ftFloat,
'r8', 'r8', //ftCurrency,
'fixed', 'fixed', //ftBCD,
'date', 'date', //ftDate,
'time', 'time', //ftTime,
'datetime', 'datetime', //ftDateTime,
'bin.hex', 'bin.hex', //ftBytes,
'bin.hex', 'bin.hex', //ftVarBytes,
'i4', 'i4', //ftAutoInc,
'bin.hex', 'bin.hex', //ftBlob,
'bin.hex', 'bin.hex', //ftMemo,
'bin.hex', 'bin.hex', //ftGraphic,
'bin.hex', 'bin.hex', //ftFmtMemo,
'bin.hex', 'bin.hex', //ftParadoxOle,
'bin.hex', 'bin.hex', //ftDBaseOle,
'bin.hex', 'bin.hex', //ftTypedBinary,
'', '', //ftCursor,
'string', 'string', //ftFixedChar,
'string', 'string', //ftWideString,
'i8', 'i8', //ftLargeint,
'', '', //ftADT,
'', '', //ftArray,
'', '', //ftReference,
'', '', //ftDataSet,
'', '', //ftOraBlob,
'', '', //ftOraClob,
'', '', //ftVariant,
'', '', //ftInterface,
'', '', //ftIDispatch,
'', '', //ftGuid,
'', '', //ftTimeStamp,
'', '', //ftFMTBcd,
'', '', //ftFixedWideChar,
'', '', //ftWideMemo,
''
{$IFDEF RX_USE_DELPHI_EXT_FIELD_TYPES} {$IFDEF RX_USE_DELPHI_EXT_FIELD_TYPES}
, '' '' //ftOraTimeStamp,
, '' , '' //ftOraInterval,
, '' , '' //ftLongWord,
, '' , '' //ftShortint,
, '' , '' //ftByte,
, '' , '' //ftExtended,
, '' //ftSingle
{$ENDIF} {$ENDIF}
); );