diff -r 2b5314cc356c -r c9cdbf630447 hedgewars/uUtils.pas --- a/hedgewars/uUtils.pas Wed Mar 07 13:48:51 2018 +0100 +++ b/hedgewars/uUtils.pas Wed Mar 07 15:09:31 2018 +0100 @@ -216,16 +216,12 @@ SplitByChar(a,b,' '); end; -// should this include "strtolower()" for the split string? procedure SplitByChar(var a, b: shortstring; c : char); -var i, t: LongInt; +var i: LongInt; begin i:= Pos(c, a); if i > 0 then begin - for t:= 1 to Pred(i) do - if (a[t] >= 'A')and(a[t] <= 'Z') then - Inc(a[t], 32); b:= copy(a, i + 1, Length(a) - i); a[0]:= char(Pred(i)) {$IFDEF PAS2C}