Squeeze


Purpose   Truncates a string and inserts a symbol in the string.

Decln.    Squeeze(LR:Char;Str:string;width:byte):string;

Returns   String

Remarks   LR is a character to indicate whether the left or the right of
          the string should be retained. 'L' for left and 'R' for right.
          Str is the source string.
          Width is the length of the returned string.

          An arrow is forced into the first or last character position to
          indicate that the string has been truncated.

Example

VAR
  TTT : STRING;
BEGIN
    TTT := SQUEEZE('R','C:\TURBO\WILLY.PAS',14);
END;

The string TTT will be assigned the value "->rbo\willy.pas".