[Иван]

Здравсвуйте. У меня следующая проблема: есть массив слов, слова в цикле добавляются в RichEdit, если слово походит под определенные параметры нужно выделить именно это слово жирным. Делаю так

Код:

var
obj:TObject;
...............
for I := 0 to List.Count - 1 do
   begin
   obj:=list.Items[i];  
   pos :=length(rchEdit.Text);  //вычисляем текущую позицию курсора
    rchEdit.Text:=rchEdit.Text+(obj as TCombobox).text;//добавляем текст
   if (obj as TCombobox).ItemIndex<>0 then//условие выделения слова
   begin
    rchEdit.SelStart:=pos;
    rchEdit.SelLength:= length((obj as TCombobox).text);
    rchEdit.SelAttributes.Style:=[fsBold];
   end;
  end;

Admin: Пользуемся тегами!

Но этот способ работает криво. Если под условие попадает первое слово, то жирным выделяется весь текст, если не первое, то слово вообще не выделяется. Еще раз повторяю, что стиль нужно менять именно на лету, в момент добавления слова к тексту. Вариант с начальным построением текста и поиском в нем нужных слов не интересует.