1 unit uFLUtils;

     1 unit uFLUtils;

     2 interface

     2 interface

     3 

     3 

     4 function str2PChar(const s: shortstring): PChar;

     4 function str2PChar(const s: shortstring): PChar;

     5 function intToStr(n: LongInt): shortstring;

     5 function intToStr(n: LongInt): shortstring;

     6 function midStr(s: shortstring; pos: byte): shortstring;

     7 function midStr(s: shortstring; pos: byte): shortstring;

     7 procedure underScore2Space(var s: shortstring);

     8 procedure underScore2Space(var s: shortstring);

     8 

     9 

     9 implementation

    10 implementation

    10 

    11 

    25 function intToStr(n: LongInt): shortstring;

    26 function intToStr(n: LongInt): shortstring;

    26 begin

    27 begin

    27     str(n, intToStr)

    28     str(n, intToStr)

    28 end;

    29 end;

    29 

    30 

    30 function midStr(s: shortstring; pos: byte): shortstring;

    36 function midStr(s: shortstring; pos: byte): shortstring;

    31 begin

    37 begin

    32     midStr:= copy(s, pos, length(s) - pos + 1)

    38     midStr:= copy(s, pos, length(s) - pos + 1)

    33 end;

    39 end;

    34 

    40