[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]