Поиск и замена, заменить слово целиком

Posted by Chas under Delphi

подскажите как можно заменить только слово целиком? Писать свою функцию? но разделитель между словами может быть какой угодно, запятая, пробел, табуляция и т.д.

spirit-ua
сделал вот так:

const

   Delimiters = [ '.' ,  ',' , '-' , ':' , ' ' , '!' , '?' , '(' , ')' , '[' , ']' ];

 var

   Str1, Str2, Str3 : string;

   i : integer;

   k1,k2 : integer;

 begin

   Str1 := 'begin, Sender ,0, end ,end';

   Str1 := ' ' + Str1 + ' ' ;

   Str2 := 'end';

   Str3 := 'END';

   for i:=0 to length(Str1) do

     begin

     if copy(Str1,i,length(Str2)) = Str2 then

       begin

       k1 := i-1;

       k2 := i+length(Str2);

       if (Str1[k1] in Delimiters) and (Str1[k2] in Delimiters) then

         begin

         Str1 := copy(Str1,1,k1) + Str3 + copy(Str1,k2,length(Str1));

         end;

       end;

     end;
   Str1 := Trim(Str1);

   Edit2.Text := Str1;

тема на форуме

Похожие статьи

• Поиск и замена заданной строки в тексте
• Универсальная функция для получения из строки определённого фрагмента
• Поиск слова в тексте
• Вырезать текст между тегами
• Найти и заменить символ на перевод строки
• Поиск слова в Memo
• Поиск и замена в memo
• Как из ip адреса вывести последние цифры
• Склонение ФИО
• Как организовать поиск по 2 полям с помощью like?