Strip                                                         StrngTTT



Purpose   To remove a character from a string

Returns   string;

Declaration    Strip(L,C:char; Str:string):string;

          L  is a character indicating which part of the string to
          strip the characters (see remarks)
          C is the character to strip
          Str is the string to strip

Uses StrngTTT.

Remarks   The valid values of L are
          'L' strip all leading characters
          'R' strip all trailing characters
          'B' strip leading and trailing characters
          'A' strip all occurences of the character

Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := STRIP('B',' ','   THIS IS NEAT        ');
               END.


The string TTT is assigned the value "This is neat".