GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-12-22 09:03:08 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: '-' is not a Delphi safe character

Browse Source 
Fixed: 'file' is not a Delphi safe keyword
This commit is contained in:
Mark van Renswoude 2010-07-14 08:50:33 +00:00
parent cb781049c7
commit c892e495b7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/DelphiXMLDataBindingResources.pas
View File

@ -166,14 +166,14 @@ const
// #ToDo1 (MvR) 9-3-2008: document / node / etc
// #ToDo1 (MvR) 9-3-2008: WideString etc ?
ReservedWords: array[0..106] of String =
ReservedWords: array[0..107] of String =
(
'absolute', 'abstract', 'and', 'array', 'as', 'asm',
'assembler', {'automated', }'begin', 'case', 'cdecl', 'class',
'const', 'constructor', {'contains', }'default', 'deprecated',
'destructor', 'dispid', 'dispinterface', 'div', 'do',
'downto', 'dynamic', 'else', 'end', 'except', 'export',
'exports', 'external', 'far', {'file', 'final', }'finalization',
'exports', 'external', 'far', 'file', {'final', }'finalization',
'finally', 'for', 'forward', 'function', 'goto', 'if',
'implementation', 'implements', 'in', 'index', 'inherited',
'initialization', 'inline', 'interface', 'is', 'label',
@ -190,7 +190,7 @@ const
'virtual', 'while', 'with', 'write', 'writeonly', 'xor'
);
SafeChars = ['A'..'Z', 'a'..'z', '0'..'9', '_', '-'];
SafeChars = ['A'..'Z', 'a'..'z', '0'..'9', '_'];
type