Удаление слов в RichEdit

[Xo66um]

Всем привет.
Такая проблема... надо удалить некоторые слова в RichEdit.
Написал процедуру, слова нужные удаляет, но каждый раз выскакивает ошибка:

RichEdit line insertion error.

Вот код процедуры:

var
 Start, Find: integer;
begin
  Start := 0;
  Find := RichEdit.FindText(Word, Start, MaxInt, [stMatchCase]);
  while Find <> -1 do
   begin
    RichEdit.SelStart := Find;
    RichEdit.SelLength := Length(Word);
    RichEdit.SelText := '';
    Start := Find + Length(Word);
    Find := RichEdit.FindText(Word, Start, MaxInt, [stMatchCase]);
   end;
end;

Процедура повешана на OnChange RichEdit-а.
В чем проблема?

[Аватар]

Start := Find + Length(Word);

Length(Word) не нужно плюсовать, там нет уже удаленного куска текста

[Xo66um]

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

Length(Word) не нужно плюсовать, там нет уже удаленного куска текста

Length(Word) нужен для того, чтобы повторные слова не удалялись.
Во всяком случае, даже без Length(Word) вылетает все та же ошибка.

[Serge_Bliznykov]

рискную предположить (могу ошибаться!!), что ошибка возникает из рекурсии: если изменить в процедуре OnChange текст, то вызовется процедура, назначенная на onChange.

попробуйте (для проверки сего факта) вынести код обработки из onChange (на onClick баттона, например). Или поставьте точку останова на начале процедуры, посмотрите, сколько раз она вызовется...

p.s. если я прав, то побороть можно легко с помощью глобального флага (переменной типа boolean)

[Аватар]

Процедура повешана на OnChange

Попробуйте перед выполнением кода обнилить OnChange, после восстановить.

[Xo66um]

Serge_Bliznykov, вы правы, на OnClick-е ошибок не возникает.

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

Попробуйте перед выполнением кода обнилить OnChange, после восстановить.

Не вариант, т.к. все форматирование слетает.

Сделал, спасибо всем большое, в особенности Serge_Bliznykov

[Аватар]

Не вариант, т.к. все форматирование слетает.

Придумал что-то. Из-за этого ни чего слетать не будет, тем более форматирование

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  RichEdit1.OnChange:=nil;
//здесь ваш код
  RichEdit1.OnChange:=RichEdit1Change;
end;

[Xo66um]

Аватар, при восстановлении RichEdit обновляется, и все форматирование слетает. Ошибку все также не исправляет.

Delphi 7 (Win7 Макс., x64, SP1)

[Xo66um]

Собственно, демку ошибки прикрепил к первому сообщению. Если кто-нибудь посмотрит, и предложит методы исправления этой ошибки - буду признателен.

Обращаю также ваше внимание на то, что если вручную вводить специальное слово в RichEdit, то ошибки не возникает, также ошибки нет, если закинуть вызов процедуры удаления в поток, или вынести вызов этой процедуры на обработчик любого компонента (например OnClick TButton).

P.S.
Извините, думал, сообщения "склеются" при добавлении нового

[opencloser]

Не подходит вариант: прочитать, отредактировать прочитанное и переписать заново ?