hedgewars/uLocale.pas
branchwebgl
changeset 9956 0c6286c67b8d
parent 9127 e350500c4edb
child 10015 4feced261c68
--- a/hedgewars/uLocale.pas	Sun Jan 05 10:54:03 2014 +0400
+++ b/hedgewars/uLocale.pas	Sun Jan 05 13:08:50 2014 +0400
@@ -63,10 +63,10 @@
             continue;
         TryDo(Length(s) > 6, 'Load locale: empty string', true);
         val(s[1]+s[2], a{$IFNDEF PAS2C}, c{$ENDIF});
-        TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true);
+        {$IFNDEF PAS2C}TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true);{$ENDIF}
         TryDo(s[3] = ':', 'Load locale: ":" expected', true);
         val(s[4]+s[5], b{$IFNDEF PAS2C}, c{$ENDIF});
-        TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true);
+        {$IFNDEF PAS2C}TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true);{$ENDIF}
         TryDo(s[6] = '=', 'Load locale: "=" expected', true);
         Delete(s, 1, 6);
         case a of