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

Starting WideString support by the Type Library Editor/ws_helper

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@561 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-15 02:34:09 +00:00
parent 2cb02c46ec
commit b2368463cf
9 changed files with 490 additions and 434 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -200,9 +200,10 @@ implementation
uses parserutils, wst_types;
const
SIMPLE_TYPES_COUNT = 15;
SIMPLE_TYPES_COUNT = 16;
SIMPLE_TYPES : Array[0..Pred(SIMPLE_TYPES_COUNT)] Of array[0..2] of string = (
('string', 'TComplexStringContentRemotable', 'string'),
('WideString', 'TComplexWideStringContentRemotable', 'string'),
('integer', 'TComplexInt32SContentRemotable', 'int'),
('LongWord', 'TComplexInt32UContentRemotable', 'unsignedInt' ),
('SmallInt', 'TComplexInt16SContentRemotable', 'short'),