Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Июн

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

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;