Скачать: CL | DM;

Как в 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c