Выделение слов в RichEdit на лету

← →
Иван (2010-01-06 15:22) [0]

Здравсвуйте. У меня следующая проблема: есть массив слов, слова в цикле добавляются в RichEdit, если слово походит под определенные параметры нужно выделить именно это слово жирным. Делаю так
var obj:TObject; ............... for I := 0 to List.Count - 1 do begin obj:=list.Items[i]; //вычисляем текущую позицию курсора 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;
Но этот способ работает криво. Если под условие попадает первое слово, то жирным выделяется весь текст, если не первое, то слово вообще не выделяется. Еще раз повторяю, что стиль нужно менять именно на лету, в момент добавления слова к тексту. Вариант с начальным построением текста и поиском в нем нужных слов не интересует.

← →
Джо © (2010-01-06 22:11) [1]

Style:=[fsBold];
Добавляем текст
Style:=[];

Не подходит?

← →
Иван (2010-01-07 00:06) [2]

> Style:=[fsBold];Добавляем текстStyle:=[];Не подходит?

Так тоже не работает.

← →
Джо © (2010-01-07 01:18) [3]

Всё прекрасно работает (выделяет каждое нечетное слово):

procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := 1 to 10 do begin if Odd(I) then RichEdit1.SelAttributes.Style := [fsBold]; RichEdit1.SelText := "ABC "; RichEdit1.SelAttributes.Style := []; end; end;

> Иван (06.01.10 15:22)

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

Позволь спросить. У тебя действительно есть List.Count объектов типа TCombobox? Или их действительно было столько создано в рантайме?

Выделение слов в RichEdit на лету Найти похожие ветки