From c892e495b71f0c317eb6af1656a83b1a4198db96 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Wed, 14 Jul 2010 08:50:33 +0000
Subject: [PATCH] Fixed: '-' is not a Delphi safe character Fixed: 'file' is
 not a Delphi safe keyword

---
 Units/DelphiXMLDataBindingResources.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Units/DelphiXMLDataBindingResources.pas b/Units/DelphiXMLDataBindingResources.pas
index 8f42a80..1e654f7 100644
--- a/Units/DelphiXMLDataBindingResources.pas
+++ b/Units/DelphiXMLDataBindingResources.pas
@@ -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