{ **** UBPFD *********** by delphibase.endimus.com ****
>> удаление лишних пробелов в строке
удаляет из строки лишние пробелы без использования всяких указателей и т.д.
Зависимости: стандартные модули
Автор: Артем, boss1999@mail.ru, москва
Copyright: собственное описание (Артем)
Дата: 24 сентября 2003 г.
***************************************************** }{процедура удаления лишних пробелов в строке (см. function Sha_SpaceCompress)}var
c, i: integer;
stt, st, st1: string;
begin
c := 0;
st := edit1.Text;
for i := 1 to Length(st) dobegin
stt := copy(st, i, 1);
if (stt = " ") and (c >= 1) thenbegin
st1 := st1;
c := c + 1;
endelseif (stt = " ") and (c = 0) thenbegin
c := c + 1;
st1 := st1 + stt;
endelseif (stt <> " ") thenbegin
c := 0;
st1 := st1 + stt;
endend;
edit2.text := st1;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Удаление лишних пробелов в строке", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!