Замена

[puporev]

Сообщение от puporev
Это если заданное слово не является частью другого слова. Например если задано слово СТО, то в словах типа СТОл, проСТО буквы С Т О будут заменены на другие.

Тут встречный вопрос: а можно это как то изменить? Чтобы такого не было.

Можно, примерно так:

const m=['.',',',':',';','!','?',' '];//константа-множество разделителей+пробел
var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  s,s1,s2: string;
  i: integer;
begin
  s := RichEdit1.Text+' ';//наш текст+пробел
  s1:=Edit1.Text;//слово, которое нужно заменить
  s2:=Edit2.Text;//слово, которым нужно заменить
  i:=1;
  while i<=length(s) do
    begin
//если находим подряд символы, совпадающие с заданным словом+оно первое или перед ним пробел или разделитеь+после него пробел или разделитель
      if (copy(s,i,length(s1))=s1)and((i=1)or (s[i-1]in m))and(s[i+length(s1)]in m)
      then begin
           delete(s, i, length(s1));//удаляем его
           insert(s2, s, i);//вставляем новое
           i:=i+length(s2);//перепрыгиваем вперед
           end
      else i:=i+1;//если нет продолжаем смотреть строку дальше
   end;
   RichEdit1.Text :=copy(s,1,length(s)-1);//на всякий случай последний пробел уберем
end;

[Dr.Badnezz]

Спасибо!!!!!!!