Trim

Trim whitespace from the ends of a string.

Declaration

Source position: sysstrh.inc line 107

Description

Trim strips blank characters (spaces and control characters) at the beginning and 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

Example

Program Example84;

{ This program demonstrates the Trim function }

Uses sysutils;
{$H+}

Procedure Testit (S : String);

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

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