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

    {*****************************************************************************
     * Function ...... StrZero()
     * Purpose ....... To return a number as a string with leading zeros
     * Parameters .... Num        Number to make into a string
     *                 Len        Length of resultant string
     * Returns ....... <Num> as a string, <Len> in length with leading zeros
     * Notes ......... Uses the functions PadL and ITOS
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION StrZero( Num, Len : LONGINT ) : STRING;
    BEGIN
         StrZero := PadL( ITOS( Num, 0 ), Len, '0' );
    END; { StrZero }

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