Удаление лишних пробелов в строкеDelphi , Синтаксис , Текст и СтрокиУдаление лишних пробелов в строке
Автор: Артем { **** 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) do begin stt := copy(st, i, 1); if (stt = ' ') and (c >= 1) then begin st1 := st1; c := c + 1; end else if (stt = ' ') and (c = 0) then begin c := c + 1; st1 := st1 + stt; end else if (stt <> ' ') then begin c := 0; st1 := st1 + stt; end end; edit2.text := st1; end; Статья Удаление лишних пробелов в строке раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |