Fixed: '-' is not a Delphi safe character
Fixed: 'file' is not a Delphi safe keyword
This commit is contained in:
parent
cb781049c7
commit
c892e495b7
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user