Added: support for xs:decimal

This commit is contained in:
Mark van Renswoude 2012-04-20 08:33:26 +00:00
parent ca8492e5bd
commit ea12a5124e
1 changed files with 2 additions and 1 deletions

View File

@ -331,7 +331,7 @@ type
const
SimpleTypeMapping: array[0..11] of TTypeMapping =
SimpleTypeMapping: array[0..12] of TTypeMapping =
(
(SchemaName: 'int'; DelphiName: 'Integer'; Conversion: tcNone),
(SchemaName: 'integer'; DelphiName: 'Integer'; Conversion: tcNone),
@ -339,6 +339,7 @@ const
(SchemaName: 'date'; DelphiName: 'TDateTime'; Conversion: tcDate),
(SchemaName: 'time'; DelphiName: 'TDateTime'; Conversion: tcTime),
(SchemaName: 'dateTime'; DelphiName: 'TDateTime'; Conversion: tcDateTime),
(SchemaName: 'decimal'; DelphiName: 'Double'; Conversion: tcFloat),
(SchemaName: 'float'; DelphiName: 'Double'; Conversion: tcFloat),
(SchemaName: 'double'; DelphiName: 'Double'; Conversion: tcFloat),
(SchemaName: 'boolean'; DelphiName: 'Boolean'; Conversion: tcBoolean),