--- a/hedgewars/uFLUtils.pas Tue Nov 18 23:39:30 2014 +0300
+++ b/hedgewars/uFLUtils.pas Wed Nov 19 00:38:14 2014 +0300
@@ -4,6 +4,7 @@
function str2PChar(const s: shortstring): PChar;
function intToStr(n: LongInt): shortstring;
function midStr(s: shortstring; pos: byte): shortstring;
+procedure underScore2Space(var s: shortstring);
implementation
@@ -31,4 +32,11 @@
midStr:= copy(s, pos, length(s) - pos + 1)
end;
+procedure underScore2Space(var s: shortstring);
+var i: LongInt;
+begin
+ for i:= length(s) downto 1 do
+ if s[i] = '_' then s[i]:= ' '
+end;
+
end.