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

{*****************************************************************************
 * Function ...... RTrim()
 * Purpose ....... To trim a character off the right side of a string
 * Parameters .... s       String to trim
 *                 c       Character to trim from <s>
 * Returns ....... <s> with all characters <c> removed from the right side
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... October 2, 1992
 *****************************************************************************}
FUNCTION RTrim( s: STRING; c: CHAR ): STRING;
BEGIN
      WHILE (LENGTH(s) > 0) AND (s[LENGTH(s)] = c) DO DEC(s[0]);
      RTrim := s;
END;

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