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

    {*****************************************************************************
     * Function ...... AllTrim()
     * Purpose ....... To trim off spaces from either side of a string
     * Parameters .... str        String to trim
     * Returns ....... str with leading and trailing spaces removed
     * Notes ......... Uses function LTrim and RTrim
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION AllTrim( str : STRING ) : STRING;
    BEGIN
         IF LENGTH( Str ) > 0 THEN
             AllTrim := LTrim(RTrim(str, ' '), ' ')
         ELSE
             AllTrim := Str;
    END;

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