From ea12a5124ee87faa2887b8fdc4b25c2cc1618e1f Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Fri, 20 Apr 2012 08:33:26 +0000 Subject: [PATCH] Added: support for xs:decimal --- Units/DelphiXMLDataBindingResources.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Units/DelphiXMLDataBindingResources.pas b/Units/DelphiXMLDataBindingResources.pas index f8716a3..5f2e518 100644 --- a/Units/DelphiXMLDataBindingResources.pas +++ b/Units/DelphiXMLDataBindingResources.pas @@ -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),