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;

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

     7 

     8 

     8 implementation

     9 implementation

     9 

    10 

    10 var

    11 var

    11     str2PCharBuffer: array[0..255] of char;

    12     str2PCharBuffer: array[0..255] of char;

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

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

    30 begin

    31 begin

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

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

    32 end;

    33 end;

    33 

    34 

    34 end.

    42 end.