Janilabo | TrimBegin() [Simba]

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

var
  str: string;

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