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

Parser : map xsd:string to UnicodeString.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3055 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-05-17 17:25:51 +00:00
parent 3c995d69dd
commit 1ca4e37446
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@ -287,13 +287,13 @@ const
SPECIAL_SIMPLE_TYPES_COUNT = 5 {$IFDEF WST_UNICODESTRING} + 1 {$ENDIF WST_UNICODESTRING}; SPECIAL_SIMPLE_TYPES_COUNT = 5 {$IFDEF WST_UNICODESTRING} + 1 {$ENDIF WST_UNICODESTRING};
SPECIAL_SIMPLE_TYPES : Array[0..Pred(SPECIAL_SIMPLE_TYPES_COUNT)] Of array[0..2] of string = ( SPECIAL_SIMPLE_TYPES : Array[0..Pred(SPECIAL_SIMPLE_TYPES_COUNT)] Of array[0..2] of string = (
('Currency', 'TComplexCurrencyContentRemotable', 'decimal'), ('Currency', 'TComplexCurrencyContentRemotable', 'decimal'),
{$IFDEF WST_UNICODESTRING}
('UnicodeString', 'TComplexUnicodeStringContentRemotable', 'string'),
{$ENDIF WST_UNICODESTRING}
('string', 'TComplexStringContentRemotable', 'string'), ('string', 'TComplexStringContentRemotable', 'string'),
('WideString', 'TComplexWideStringContentRemotable', 'string'), ('WideString', 'TComplexWideStringContentRemotable', 'string'),
('AnsiChar', 'TComplexAnsiCharContentRemotable', 'string'), ('AnsiChar', 'TComplexAnsiCharContentRemotable', 'string'),
('WideChar', 'TComplexWideCharContentRemotable', 'string') ('WideChar', 'TComplexWideCharContentRemotable', 'string')
{$IFDEF WST_UNICODESTRING}
,('UnicodeString', 'TComplexUnicodeStringContentRemotable', 'string')
{$ENDIF WST_UNICODESTRING}
); );
procedure AddSystemSymbol( procedure AddSystemSymbol(