StringReplace, нужна помощь

[spirit-ua]

Всем Привет!

temp := 'begin, Sender  ,0, end';
temp := StringReplace(temp,'end','END',[rfReplaceAll, rfIgnoreCase]);

получаю: begin, SENDer ,0, END
а нужно: begin, Sender ,0, END

подскажите как можно заменить только слово целиком?

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

Помогите

[Аватар]

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

Писать. PosEx и заменять только тогда, когда справа-слева один из предусмотренных разделителей или начало-конец строки

[Serge_Bliznykov]

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

Как вариант - можно попробовать применить регулярные выражения.

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

да ладно! И что, разделителем между словами может быть подчёркивание? Цифра? Дефис?
Обычно поступают так: или задают набор разделителей (delimters), например,

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

и считаем словами всё, что между разделителями.
Либо, если определить набор разделителей не представляется возможным, тогда считаем словами группу символов, которые входят в заданный алфавит (описываем набор допустимых символов), тогда всё, что не входит в алфавит - это разделители.

p.s. алгоритмов(примеров) парсинга текста с выделением слов на форуме было достаточно.

[spirit-ua]

Сообщение от Аватар

Писать. PosEx и заменять только тогда, когда справа-слева один из предусмотренных разделителей или начало-конец строки

а как отловить начало и конец строки? проверять символ перед и после вхождения подстроки в строке, какие "коды" отвечают за начало и конец строки?

[Serge_Bliznykov]

индекс символа в строке равен 1 - это начало строки
индекс символа равен Length(s) - это конец строки

например, код - тыц

[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;

если есть ошибки ткните носом

[Аватар]

если есть ошибки ткните носом

Сделай пару десятков разнообразных тестовых строк, если ошибки есть - они сами в нос ткнут

[spirit-ua]

Сообщение от Аватар

Сделай пару десятков разнообразных тестовых строк, если ошибки есть - они сами в нос ткнут

ОК

Всем Спасибо!

[eval]

а если в поиске пробел участвует?

[spirit-ua]

Сообщение от eval

а если в поиске пробел участвует?

заменил строку

Str1 := Trim(Str1);

на

Str1 := copy(Str1,2,length(Str1)-2);

а сам пробел заменять не нужно