diff -r b1b7eb9c8cc9 -r bcf9d8e64e92 hedgewars/uLocale.pas --- a/hedgewars/uLocale.pas Sat May 12 22:50:33 2012 +0400 +++ b/hedgewars/uLocale.pas Sat May 12 23:55:09 2012 +0400 @@ -26,7 +26,7 @@ procedure LoadLocale(FileName: shortstring); function Format(fmt: shortstring; var arg: shortstring): shortstring; -function Format(fmt: ansistring; var arg: ansistring): ansistring; +function FormatA(fmt: ansistring; var arg: ansistring): ansistring; function GetEventString(e: TEventId): ansistring; {$IFDEF HWLIBRARY} @@ -122,14 +122,14 @@ Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg) end; -function Format(fmt: ansistring; var arg: ansistring): ansistring; +function FormatA(fmt: ansistring; var arg: ansistring): ansistring; var i: LongInt; begin i:= Pos('%1', fmt); if i = 0 then - Format:= fmt + FormatA:= fmt else - Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg) + FormatA:= copy(fmt, 1, i - 1) + arg + FormatA(copy(fmt, i + 2, Length(fmt) - i - 1), arg) end; {$IFDEF HWLIBRARY}