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

Previous  Top  Next

    
 

 

Code:

{ **** 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);

 

©Drkb::00903

 


 

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

 

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

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

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

©Drkb::00904

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)