+ Patch from Michalis Kamburelis to fix hex2dec behaviour in case of error

git-svn-id: trunk@2373 -

rtl/objpas/strutils.pp

@@ -1156,7 +1156,7 @@ begin
     HexStr:='$'+ S
   else
     HexStr:=S;
-  Result:=StrTointDef(HexStr,0);
+  Result:=StrToInt(HexStr);
 end;
 
 function Dec2Numb(N: Longint; Len, Base: Byte): string;