RichEdit

← →
Serg1981 © (2006-02-01 20:38) [0]

Здравствуйте! У меня программа выделяет красным цветом нужные фрагменты в RichEdit таким образом:
while true do begin num := PosEx("123", Editor.Text, num + 1); if num <> 0 then begin Editor.SelStart := num - 1; Editor.SelLength := Length("123"); Editor.SelAttributes.Color := clRed; end else Break; end;
Вопрос: почему этот же фрагмент не работает с RxRichEdit ? В нём у меня выделяются не те фрагменты.
Спасибо.

← →
begin...end © (2006-02-01 20:59) [1]

А метод FindText работает? Что-то вроде этого:

var
N, L: Integer;
begin
with Editor do
begin
L := GetTextLen;
N := FindText("123", 0, L, [stMatchCase]);
while N <> -1 do
begin
SelStart := N;
SelLength := 3;
SelAttributes.Color := clRed;
N := FindText("123", N + 1, L, [stMatchCase]);
end;
end;
end

RichEdit Найти похожие ветки