--- a/hedgewars/uUtils.pas	Mon Jan 27 01:07:12 2014 +0400
+++ b/hedgewars/uUtils.pas	Mon Jan 27 22:34:06 2014 +0400
@@ -73,6 +73,7 @@
 {$IFNDEF PAS2C}
 procedure Write(var f: textfile; s: shortstring);
 procedure WriteLn(var f: textfile; s: shortstring);
+function StrLength(s: PChar): Longword;
 {$ENDIF}
 
 function  isPhone: Boolean; inline;
@@ -441,6 +442,11 @@
 begin
 system.writeln(f, s)
 end;
+
+function StrLength(s: PChar): Longword;
+begin
+    StrLength:= length(s)
+end;
 {$ENDIF}
 
 // this function is just to determine whether we are running on a limited screen device