[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... ITOS()
 * Purpose ....... Convert an integer to a string <nSpaces> in length
 * Parameters .... nNum       Integer to convert
 *                 nSpaces    Length of resultant string
 * Returns ....... nNum as a string, <nSpaces> in length
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION ITOS( nNum: LONGINT; nSpaces: INTEGER ): STRING;
VAR
   s: ^STRING;
BEGIN
     ASM  
          mov     sp, bp 
          push    ss
          push    WORD PTR @RESULT
     END;

     IF nSpaces > 0 THEN
         STR( nNum:nSpaces, s^ )
     ELSE
         STR( nNum:0, s^ );
END;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]