# HG changeset patch # User sheepluva # Date 1418840637 -3600 # Node ID c3b73dc33294dd354d03e49e6a4906cfbbdb99e4 # Parent 692649e341fc60bfc39b20a4aa3a35ea57888479 grmlgrml diff -r 692649e341fc -r c3b73dc33294 hedgewars/uRenderUtils.pas --- a/hedgewars/uRenderUtils.pas Wed Dec 17 19:03:33 2014 +0100 +++ b/hedgewars/uRenderUtils.pas Wed Dec 17 19:23:57 2014 +0100 @@ -311,6 +311,8 @@ begin m:= Length(s); + substr:= ''; + SetLengthA(substr, m); // number of chars read diff -r 692649e341fc -r c3b73dc33294 hedgewars/uUtils.pas --- a/hedgewars/uUtils.pas Wed Dec 17 19:03:33 2014 +0100 +++ b/hedgewars/uUtils.pas Wed Dec 17 19:23:57 2014 +0100 @@ -74,6 +74,7 @@ procedure Write(var f: textfile; s: shortstring); procedure WriteLn(var f: textfile; s: shortstring); function StrLength(s: PChar): Longword; +procedure SetLengthA(var s: ansistring; len: Longword); {$ENDIF} function isPhone: Boolean; inline;