Code:

{ **** UBPFD *********** by delphibas e.endimus .com ****

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

Функция возвращает строку без пробелов в начале (если они были)

Зависимости: Windows, SysUtils

Автор: Hastlero

Copyright: HasTler0

***************************************************** }

var

i: Integer;

begin

if Length(str) = 0then

begin

DelSpaces := str;

Exit;

end;

for i := 1to length(str) do

begin

if pos(' ', str) = 1then

delete(str, 1, 1)

else

begin

DelSpaces := str;

Break;

end;

end;

end;

//Пример использования:

Str := DelSpaces(Str);