Удаление пробелов в начале строки
Falk0ner, вс, 06/07/2008 - 15:34.
Удаление пробелов в начале строки
{ **** 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);
>> Удаление пробелов в начале строки
Функция возвращает строку без пробелов в начале (если они были)
Зависимости: 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 (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Отправить комментарий