* support 'x1f' and 'X1f' for hex notation in val() (Delphi compatibility,

    mantis 8177)

git-svn-id: trunk@6204 -

rtl/inc/sstrings.inc

@@ -670,7 +670,9 @@ begin
   if code<=length(s) then
    begin
      case s[code] of
-      '$' : begin
+      '$',
+      'X',
+      'x' : begin
               base:=16;
               inc(code);
             end;