Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Подсветка тегов

Автор: RelictOs 4.4.2012, 19:27

Дорогие друзья,
хочу представить вам небольшую процедуру для выделения цветом требуемых вам тегов в TRichEdit

Код


procedure Tags(str : TRichEdit; tag : string; Color : TColor);
var
 p,s : integer;
 fx,substrs : string;
begin
 substrs := str.Text;
 p := 1;
 while p > 0 do
  begin
   fx := '';
   p := pos(tag,Substrs);
   if p > 0 then
    begin
     Delete(substrs,p,Length(tag));
     for s:= 1 to length(tag) do fx := fx + '#';
     Insert(fx,substrs,p-1);
     str.SelStart := p -1;
     str.SelLength := length(tag);
     str.SelAttributes.Color := Color;
    end;
  end;
 str.SelStart := 0;
end;

Пример использования:

Код


Tags(RichEdit1,'<',clRed);

писалась процедура на скорую руку. если есть недочеты - прошу меня извинить.
Спасибо за внимание!