Перехватить выводимый в DBRichEdit текст

Подскажите как можно подменить выводимый в DBRichEdit текст?
-----------------------------------------------------------
Информация – это то, чем я пользуюсь для принятия решений.

Бернерс-Ли

я два раза два раза не повторяю не повторяю

Obrazer

я два раза два раза не повторяю не повторяю

да вот такие (_!_) каналы связи

копосов нв

да вот такие (_!_) каналы связи

Которые помогают за ОДНУ минуту, затопить два АБСОЛЮТНО РАЗЛИЧНЫХ по тексту, но АБСОЛЮТНО ОДИНАКОВЫХ по смыслу топика?

Посмотрите код

procedure TFormPIR2PIR.DBTextChange(Sender: TObject);
var
  StringList : TStringList;

begin
  StringList := TStringList.Create;
  try
    StringList.LoadFromStream(OraBasicQuery.CreateBlobStream(OraBasicQueryTEXT,bmRead));
    StringList.Text := StringReplace( StringList.Text,'\fcharset0 ','\fcharset204 ', [rfReplaceAll,rfIgnoreCase]);
    DBText.Text := StringList.Text;
  finally
    StringList.Free;
  end;
end;

Почему-то кричит Stack overflow.
----------------------------------------------------------
Информация – это то, чем я пользуюсь для принятия решений.

Бернерс-Ли

Строка DBText.Text := StringList.Text инициирует событие DBText.OnChange...

dominator_

Строка DBText.Text := StringList.Text инициирует событие DBText.OnChange...

и как быть?
ведь DBText.Text := '1'; работает без проблем!

копосов

и как быть?

Отказаться от ДуБового компонента

Выполняй ту же конструкцию в AfterScroll датасета и записывай содержимое блоба в простой RichEdit

А при изменении в RichEdit-е записывай обратно в поле

Или написать свой конвертор (TConversionClass = class of TConversion;
)
И подставить в DefaultConvertor TDBRichEdit-а

Я бы сделал так:

var sign: string;
....
procedure TFormPIR2PIR.DBTextChange(Sender: TObject);
var
  StringList : TStringList;

begin
  if sign='change'  then exit;
  StringList := TStringList.Create;
  try
    StringList.LoadFromStream(OraBasicQuery.CreateBlobStream(OraBasicQueryTEXT,bmRead));
    StringList.Text := StringReplace( StringList.Text,'\fcharset0 ','\fcharset204 ', [rfReplaceAll,rfIgnoreCase]);
    sign:='change';
    DBText.Text := StringList.Text;
    sign:='';
  finally
    StringList.Free;
  end;
end;