Удаление пробелов в начале строки

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Удаление пробелов в начале строки
 
Функция возвращает строку без пробелов в начале (если они были)
 
Зависимости: Windows, SysUtils
Автор:       Hastlero
Copyright:   HasTler0
Дата:        8 февраля 2003 г.
***************************************************** }
 
var
  i: Integer;
begin
  if Length(str) = 0 then
  begin
    DelSpaces := str;
    Exit;
  end;
  for i := 1 to length(str) do
  begin
    if pos(' ', str) = 1 then
      delete(str, 1, 1)
    else
    begin
      DelSpaces := str;
      Break;
    end;
  end;
end;
//Пример использования: 
 
Str := DelSpaces(Str); 

Изобретателям велосипеда посвящается:

TrimRight - удаляет пробелы в начале строки, в том числе и в юникодных строках

TrimLeft - удаляет пробелы в конце строки, в том числе и в юникодных строках

Trim - удаляет пробелы в начале и в коце строки, в том числе и в юникодных строках

Автор: Vit