Janilabo | TrimEnd() [Simba]

function TrimEnd(str: string): string;
var
  i, l: Integer;
begin
  if (str = '') then
    Exit;
  l := Length(str);
  for i := l downto 1 do
    if (str[i] <> ' ') then
      Break;
  Result := Copy(str, 1, i);
end;

var
  str: string;

begin
  ClearDebug;
  str := '   TEST   ';
  WriteLn('STR length before TrimEnd(): ' + IntToStr(Length(str)) + ' ("' + str + '").');
  str := TrimEnd(str);
  WriteLn('STR length after TrimEnd(): ' + IntToStr(Length(str)) + ' ("' + str + '").');
end.