hedgewars/uTeams.pas
changeset 4374 bcefeeabaa33
parent 4368 b89235e401e5
child 4376 9654205a9424
--- a/hedgewars/uTeams.pas	Thu Nov 18 09:12:27 2010 +0300
+++ b/hedgewars/uTeams.pas	Thu Nov 18 11:32:47 2010 +0300
@@ -37,7 +37,7 @@
 function  GetTeamStatString(p: PTeam): shortstring;
 
 implementation
-uses uMisc, uWorld, uLocale, uAmmos, uChat, uMobile, uVariables;
+uses uMisc, uWorld, uLocale, uAmmos, uChat, uMobile, uVariables, uUtils;
 const MaxTeamHealth: LongInt = 0;
 
 function CheckForWin: boolean;
@@ -413,7 +413,7 @@
 function GetTeamStatString(p: PTeam): shortstring;
 var s: ansistring;
 begin
-    s:= p^.TeamName + ':' + inttostr(p^.TeamHealth) + ':';
+    s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
     GetTeamStatString:= s;
 end;