| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с константами и текстом.
markers © (2004-11-22 12:15:00)Чё-то не могу придумать алгоритм и воплатить его.... Имеем две константы
BedWords: array[1..3] of string =
('трафик','траффик','один');
ReplaceBedWords: array[1..3] of string =
('траф<ик','траф<ик','оди<н');
А так же есть строка TempMessage, вообщем нужно пробежатся по этой строке найти и заменить слова ноходящиеся в константах, причем слова могут встречатся одинаковые несколько раз, ясно дело что это должно быть верно, но как сделать чтоб проверялись все слова сразу и не делать по тупому
if BMSearch(0,TempMessage,BedWords[1]) = True Then ...
И что лучше всего использовать в данной ситуации While или For?
Заранее спасибо...
markers (2004-11-22 12:54:00) [1]Спасибо всем, разобрался.... Буду проверять...
Кому интересно вот:
"TempMessage:=StringReplace(TempMessage,BedWords[WordsItem],ReplaceBedWords[WordsItem],[rfReplaceAll]+[rfIgnoreCas e]);"
markers (2004-11-22 12:44:00) [2]To Плахиш. Спасибо тебе, но чё-то не могу указать ему последний параметр, сделал как в хелпе, но материт
StringReplace(TempMessage,BedWords[WordsItem],ReplaceBedWords[WordsItem],rfReplaceAll);
Плохиш (2004-11-22 12:31:00) [3]StringReplace для каждого элемента массива констант.
markers (2004-11-22 12:21:00) [4]"что это должно быть верно" - "что это должно быть в цикле"
| |
