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

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

Работа с текстом

dg ©   (2002-09-14 13:17:00) 

Народ подскажите как это можно сделать:
есть текcт в переменной text1:string . Как в нём все символы "c1" заменить, к примеру, на "c2".

Insert("c2",text1,pos("c1",text1));

Заменяет только 1-ый найденный символ, как добиться замены повсему тексту???

---

Ketmar   (2002-09-14 14:44:00) [1]

а StringReplace не поможет?

Satanas Nobiscum! 14-Sep-XXXVII A.S.

---

vikki   (2002-09-14 14:34:00) [2]

например так:

comp := pos(c1,text1);
while (comp <> 0) do
begin
Insert(c2,text1,pos(c1,text1));
Delete(c2,pos(c1,text1),Length(c1));
comp := pos(c1,text1);
end;

---

Наверх