unit uFLUtils;

interface

function str2PChar(const s: shortstring): PChar;

function intToStr(n: LongInt): shortstring;

function midStr(s: shortstring; pos: byte): 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;

end.