| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть ли Trim для всей строки, а не для краев?

Страницы:   < 1 2 3 >

Kolan ©   (2010-01-22 16:57:00) 

Здравствуйте!

Есть ли встроенная функция для удаления дублирующихся пробелов во всей строке?

---

Smile   (2010-01-22 18:05:00) [41]

Есть ли встроенная функция для удаления дублирующихся пробелов во всей строке?

И это не совсем то что я хотел.

Расскажи своей бабушке то, что ты хотел. Возможно она изложит твой вопрос более понятно))

---

Игорь Шевченко   (2010-01-22 17:54:00) [42]

MBo ©   (22.01.10 17:32) [4]

Приз за имя

---

MBo   (2010-01-22 17:32:00) [43]


procedure RemoveTrailingAndStartingSpacesAndZipInnerSpaces(var s: string);
var
 Len, i, j: Integer;
 RemoveSpace: Boolean;
begin
 Len := Length(s);
 j := 0;
 RemoveSpace := True;
 for i := 1 to Len do begin
   if s[i] = ' ' then
     if RemoveSpace then
       Inc(j)
     else begin
       RemoveSpace := True;
       s[i - j] := s[i];
     end
   else begin
     RemoveSpace := False;
     s[i - j] := s[i];
   end;
 end;
 SetLength(s, Len - j - Ord(RemoveSpace));
end;


---

Игорь Шевченко   (2010-01-22 17:21:00) [44]

Что такое "дублирующиеся пробелы" ?

---

Kolan   (2010-01-22 17:05:00) [45]

Почему Ansi? И это не совсем то что я хотел.

---

turbouser   (2010-01-22 17:01:00) [46]

> Kolan ©   (22.01.10 16:57)  

while AnsiPos('  ', Str)>0 do
 Str:=StringReplace(Str,'  ',' ',[rfReplaceall])
и всех делов..

---

Страницы:   < 1 2 3 >

Наверх