[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'sysutils' (#rtl)

# TrimRight

Trim whitespace from the end of a string.

## Declaration

Source position: sysstrh.inc line 107

`function TrimRight(`
`const S: string`
`):string; function TrimRight(`
`const S: widestring`
`):widestring; function TrimRight(`
`const S: unicodestring`
`):unicodestring;`

## Description

Trim strips blank characters (spaces and control characters) at the end of S and returns the resulting string. All characters with ordinal values less than or equal to 32 (a space) are stripped.

If the string contains only spaces, an empty string is returned.

## Errors

None.

## See also

Trim |  | Trim whitespace from the ends of a string.
TrimLeft |  | Trim whitespace from the beginning of a string.

## Example

    Program Example86;

    { This program demonstrates the TrimRight function }

    Uses sysutils;
    {$H+}

    Procedure Testit (S : String);

    begin
      Writeln ('"',TrimRight(S),'"');
    end;

    Begin
      Testit ('  ha ha what gets lost ? ');
      Testit (#10#13'haha ');
      Testit ('              ');
    End.