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

    {*****************************************************************************
     * Function ...... Comma
     * Purpose ....... To return an integer as a string with separating commas
     * Parameters .... i          Integer to return as string
     * Returns ....... i as a string, with seperating commas
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION Comma( i: LONGINT ): STRING;
    { FUNCTION to place commas in a number for printing }
    VAR
       s: STRING;
       x: INTEGER;
    BEGIN
         STR( i:0, s );
         x := LENGTH( s ) - 2;
         WHILE x > 1 DO BEGIN
               INSERT( ',', s, x );
               DEC( x, 3 );
         {W}END;
         Comma := s;
    END;

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