RichEdit

[Valerich]

Нужна процедура автоматического исправления неправильного написания "ЖЫ, ШЫ" в RichEdit.

[qpokyc]

Даже две процедуры

procedure ReplaceChars(Field: TRichEdit; Fnd, Rpl: String);
begin
  with Field do
    repeat
      SelStart := FindText(Fnd, 0, Length(Field.Text), [stMatchCase]);
      SelLength := Length(Fnd);
      if SelText <> Fnd
        then Break
          else begin
            SelAttributes.Color := clRed;
            SelText := Rpl;
          end;
    until True;
end;

procedure ZhyShi(Field: TRichEdit);
begin
  ReplaceChars(Field, 'ЖЫ', 'ЖИ');
  ReplaceChars(Field, 'Жы', 'Жи');
  ReplaceChars(Field, 'жЫ', 'жИ');
  ReplaceChars(Field, 'жы', 'жи');

  ReplaceChars(Field, 'ШЫ', 'ШИ');
  ReplaceChars(Field, 'Шы', 'Ши');
  ReplaceChars(Field, 'шЫ', 'шИ');
  ReplaceChars(Field, 'шы', 'ши');
end;

Праверял на этом:

Жырный, жЫдкий и ШЫпастый, однако, живучий

Тайна ЖЫзни

Исчо выделяет красным, все что нашел и заменил, но это можно и отвинтить.

ЗЫ: ReplaceChars зависнет, если Fnd = Rpl

[Valerich]

для ко кого события это прописывать?

[qpokyc]

OnChange, если надо автоматически.