1
0
mirror of synced 2024-11-21 13:43:49 +00:00

Fixed: '-' is not a Delphi safe character

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

View File

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