paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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 fac6384178
commit e544c7ecc2
1 changed files with 47 additions and 47 deletions
Show Stats 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
XMLFieldtypenames : Array [TFieldType] of String[15] =
(
'Unknown',
'string',
'i2',
'i4',
'i4',
'boolean',
'r8',
'r8',
'fixed',
'date',
'time',
'datetime',
'bin.hex',
'bin.hex',
'i4',
'bin.hex',
'bin.hex',
'bin.hex',
'bin.hex',
'bin.hex',
'bin.hex',
'bin.hex',
'',
'string',
'string',
'i8',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
''
'Unknown', //ftUnknown
'string', //ftString,
'i2', //ftSmallint,
'i4', //ftInteger,
'i4', //ftWord,
'boolean', //ftBoolean,
'r8', //ftFloat,
'r8', //ftCurrency,
'fixed', //ftBCD,
'date', //ftDate,
'time', //ftTime,
'datetime', //ftDateTime,
'bin.hex', //ftBytes,
'bin.hex', //ftVarBytes,
'i4', //ftAutoInc,
'bin.hex', //ftBlob,
'bin.hex', //ftMemo,
'bin.hex', //ftGraphic,
'bin.hex', //ftFmtMemo,
'bin.hex', //ftParadoxOle,
'bin.hex', //ftDBaseOle,
'bin.hex', //ftTypedBinary,
'', //ftCursor,
'string', //ftFixedChar,
'string', //ftWideString,
'i8', //ftLargeint,
'', //ftADT,
'', //ftArray,
'', //ftReference,
'', //ftDataSet,
'', //ftOraBlob,
'', //ftOraClob,
'', //ftVariant,
'', //ftInterface,
'', //ftIDispatch,
'', //ftGuid,
'', //ftTimeStamp,
'', //ftFMTBcd,
'', //ftFixedWideChar,
'', //ftWideMemo,
{$IFDEF RX_USE_DELPHI_EXT_FIELD_TYPES}
, ''
, ''
, ''
, ''
, ''
, ''
'' //ftOraTimeStamp,
, '' //ftOraInterval,
, '' //ftLongWord,
, '' //ftShortint,
, '' //ftByte,
, '' //ftExtended,
, '' //ftSingle
{$ENDIF}
);