unit uFLUtils;
interface
function str2PChar(const s: shortstring): PChar;
function intToStr(n: LongInt): shortstring;
function midStr(s: shortstring; pos: byte): shortstring;
procedure underScore2Space(var s: shortstring);
implementation
var
str2PCharBuffer: array[0..255] of char;
function str2PChar(const s: shortstring): PChar;
var i: Integer;
begin
for i:= 1 to Length(s) do
begin
str2PCharBuffer[i - 1] := s[i];
end;
str2PCharBuffer[Length(s)]:= #0;
str2PChar:= @(str2PCharBuffer[0]);
end;
function intToStr(n: LongInt): shortstring;
begin
str(n, intToStr)
end;
function midStr(s: shortstring; pos: byte): shortstring;
begin
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.