hedgewars/uGame.pas
changeset 10127 7f29a65aa1e4
parent 10116 dd27562b6f21
child 10128 0f6878b5395a
--- a/hedgewars/uGame.pas	Sun Feb 09 19:00:13 2014 +0100
+++ b/hedgewars/uGame.pas	Mon Feb 10 00:43:03 2014 +0400
@@ -32,7 +32,7 @@
 
 procedure DoGameTick(Lag: LongInt);
 var i,j : LongInt;
-    s: shortstring;
+    s: ansistring;
 begin
 if isPaused then
     exit;
@@ -76,8 +76,8 @@
             AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
         else if not isAudioMuted then
             begin
-            str(i, s);
-            AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
+            s:= ansistring(inttostr(i));
+            AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
             end
         end;
     end;