Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
{ **** 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