Вниз
Скачать: CL | DM;

Работа с константами и текстом.   Найти похожие ветки 

← →
markers ©   (2004-11-22 12:15) [0]

Чё-то не могу придумать алгоритм и воплатить его.... Имеем две константы
 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:21) [1]

"что это должно быть верно" - "что это должно быть в цикле"


← →
Плохиш ©   (2004-11-22 12:31) [2]

StringReplace для каждого элемента массива констант.


← →
markers ©   (2004-11-22 12:44) [3]

To Плахиш. Спасибо тебе, но чё-то не могу указать ему последний параметр, сделал как в хелпе, но материт        StringReplace(TempMessage,BedWords[WordsItem],ReplaceBedWords[WordsItem],rfReplaceAll);


← →
markers ©   (2004-11-22 12:54) [4]

Спасибо всем, разобрался.... Буду проверять...
Кому интересно вот:
"TempMessage:=StringReplace(TempMessage,BedWords[WordsItem],ReplaceBedWords[WordsItem],[rfReplaceAll]+[rfIgnoreCas e]);"



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c
1-1100777576
_Freshman_
2004-11-18 14:32
2004.12.05
Написание обработчика OnTerminate


1-1100767996
doma
2004-11-18 11:53
2004.12.05
ToolWindow из Dllины


6-1095857699
Lomaster
2004-09-22 16:54
2004.12.05
Как послать файл на e-mail посредством delphi?


1-1100877913
hgd
2004-11-19 18:25
2004.12.05
Кто знает о параллельных потоках


14-1100464788
SergP
2004-11-14 23:39
2004.12.05
Задачи для программистов. :-))




   Наверх