hedgewars/uStore.pas
changeset 13900 6b2c87490f0a
parent 13897 aa321e51da14
child 13982 4355b8c4099e
--- a/hedgewars/uStore.pas	Tue Oct 09 11:28:07 2018 -0400
+++ b/hedgewars/uStore.pas	Tue Oct 09 12:54:40 2018 -0400
@@ -774,7 +774,6 @@
     key, value, l, temp: shortstring;
     color, tempColor: Longword;
     clanID, tempClanID: byte;
-    conversionSuccess: boolean;
 begin
     if cOnlyStats then exit;
 
@@ -787,7 +786,6 @@
         while (not pfsEOF(f)) and (l <> '[colors]') do
             pfsReadLn(f, l);
 
-        conversionSuccess:= false;
         while (not pfsEOF(f)) and (l <> '') do
             begin
             pfsReadLn(f, l);
@@ -803,11 +801,8 @@
             if temp = 'color' then
                 begin
                 temp:= copy(key, 6, length(key) - 5);
-                tempClanID:= StrToInt(temp, conversionSuccess);
-                if conversionSuccess then
-                    clanID:= tempClanID
-                else
-                    continue;
+                tempClanID:= StrToInt(temp);
+                clanID:= tempClanID
                 end
             else
                 continue;
@@ -822,11 +817,8 @@
                 if value[1] <> '#' then
                     continue;
                 temp:= copy(value, 2, length(value) - 1);
-                tempColor:= StrToInt('0x'+temp, conversionSuccess);
-                if conversionSuccess then
-                    color:= tempColor
-                else
-                    continue;
+                tempColor:= StrToInt('0x'+temp);
+				color:= tempColor
                 end;
 
             if clanID <= cClanColors then