Janilabo | TrimStart() [SCAR Divi]

{==============================================================================]
  Explanation: Trims the beginning of the str.
[==============================================================================}
function TrimStart(str: string): string;
var
  i, l: Integer;
begin
  if (str <> '') then
  begin
    l := Length(str);
    for i := 1 to l do
      if (str[i] <> ' ') then
        Break;
    Result := Copy(str, i, ((l + 1) - i));
  end else
    Result := '';
end;

var
  str: string;

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