Как в RichEdit выделить цветом конкретное слово

← →
SergeyV (2004-05-13 23:34) [0]

Как в RichEdit выделить цветом конкретное слово (список слов в массиве). При этом возможно динамическое добавление/удаление слов из массива

← →
VMcL © (2004-05-14 00:49) [1]

TRichEdit.SelAttributes

← →
Torin (2004-05-14 09:51) [2]

Писал я как то такую прогу (в тексте ищет заданое слово и выделяет его цветом, размером и т.д.) Собственно реализация выделения и поиска:

procedure TForm1.SearchForTextExecute(Sender: TObject);
label
notfound;
var
i, j, k,Snum,found :integer;
f1, f2 :char;
begin
found :=0;
Snum :=-1;
for i:=0 to RichEdit1.Lines.Count-1 do //строки
begin
for j:=0 to Length(RichEdit1.Lines.Strings[i])-1 do //символы в строках
begin
Inc(Snum);
for k:=1 to Length(Edit1.Text) do
begin
f1 := Edit1.Text[k];
f2 := RichEdit1.Lines.Strings[i][j+k];
if f1 = f2 then
begin
end
else
begin
goto notfound;
end;
end;
inc(Found);
RichEdit1.SelStart := Snum+i*2;
RichEdit1.SelLength := Length(Edit1.Text);
RichEdit1.SelAttributes.Name := LabeledEdit2.Text;
RichEdit1.SelAttributes.Color := LabeledEdit1.Color;
RichEdit1.SelAttributes.Size := SpinEdit1.Value;
StatusBar1.SimpleText := "Найдено "+IntToStr(Found)+" заданых фрагментов";
Form1.Repaint;
notfound:
end;
end;
end;

Как в RichEdit выделить цветом конкретное слово Найти похожие ветки