--- a/hedgewars/uUtils.pas Tue Oct 09 11:28:07 2018 -0400
+++ b/hedgewars/uUtils.pas Tue Oct 09 12:54:40 2018 -0400
@@ -50,7 +50,7 @@
function IntToStr(n: LongInt): shortstring;
function StrToInt(s: shortstring): LongInt;
-function StrToInt(s: shortstring; var success: boolean): LongInt;
+//function StrToInt(s: shortstring; var success: boolean): LongInt;
function FloatToStr(n: hwFloat): shortstring;
function DxDy2Angle(const _dY, _dX: hwFloat): real; inline;
@@ -335,18 +335,17 @@
// Convert string to longint, with error checking.
// Success will be set to false when conversion failed.
// See documentation on Val procedure for syntax of s
-function StrToInt(s: shortstring; var success: boolean): LongInt;
-begin
-val(s, StrToInt);
-success:= StrToInt <> nil;
-end;
+//function StrToInt(s: shortstring; var success: boolean): LongInt;
+//var Code: Word;
+//begin
+//val(s, StrToInt, Code);
+//success:= Code = 0;
+//end;
// Convert string to longint, without error checking
function StrToInt(s: shortstring): LongInt;
-var success: boolean; // ignored
begin
-success:= true; // avoid compiler hint
-StrToInt:= StrToInt(s, success);
+val(s, StrToInt);
end;
function FloatToStr(n: hwFloat): shortstring;