hedgewars/uUtils.pas
changeset 10124 aabd1b75d5a3
parent 10117 f6aa60d8a336
child 10127 7f29a65aa1e4
--- a/hedgewars/uUtils.pas	Sat Feb 08 16:29:34 2014 +0400
+++ b/hedgewars/uUtils.pas	Sun Feb 09 00:44:29 2014 +0400
@@ -377,7 +377,7 @@
 {$ENDIF}
     exit;
 
-l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), min(length(tmpstr), length(s)))-1;
+l:= Utf8ToUnicode(@tmpstr, PChar(s), min(length(tmpstr), length(s)))-1;
 i:= 0;
 
 while i < l do