Смена цвета куска строки в RichEdit

[W0LF]

Люди кто может помочь ?
Нужно обшарить каждую строку и если она начинаеться с

'<'+name+'>'

тогда закрасить эту часть строки например красным цветом, а если она начинаеться словом, начинающемся символом '<' но не равняеться вышеупомянутому

'<'+name+'>'

тогда этот кусок с '<' по '>' покрасить в синий.

procedure TForm1.RichEdit1Change(Sender: TObject);
var
f, t, l, I: cardinal;
begin
for I:=0 to RichEdit1.Lines.Count-1 do begin
   f := pos('<', RichEdit1.Lines.Strings[i])-1;
   t := pos('>', RichEdit1.Lines.Strings[i]);
   l := t - f;
   RichEdit1.SelStart := f;
   RichEdit1.SelLength := l;
   RichEdit1.SelAttributes.Color := clRed;
  end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Richedit1.Text:='<W0LF> Сообщение';
end;

Вот так работате, но не работает если добавлять текст через Lines.Add, а здесь совершенно не одна строчка будет

[HellMercenariess]

http://programmersforum.ru/showthread.php?t=56874

Есть RichMemo - компонент для подсветки синтаксиса без лишних наворотов

[W0LF]

Помогите плиз, а то очень надо, но не могу найти нечего, что мне помогло б...

procedure ColoredRE(sim1,sim2:Char;name,text:string);
var
  i:integer;
begin
Form1.RichEdit1.Lines.Add(sim1+name+sim2+' '+text); //будет текст типа: <nik> Привет всем!!!
  for i:=0 to Form1.RichEdit1.Lines.Count-1 do begin
    if Pos(sim1,Form1.RichEdit1.Lines.Strings[i])<>0 then
        if Pos(sim2,Form1.RichEdit1.Lines.Strings[i])<>0 then begin
          Form1.RichEdit1.SelStart:=0;
          Form1.RichEdit1.SelLength:=Length(name)+2;
          Form1.RichEdit1.SelAttributes.Color:=clRed;
        end;
  end;

Красит только первую строку в RichEdit'e, а остальные нехочет.. В чом проблема?

[DomiNick]

Хм... Поясните что именно должно получаться...
И для чего оно будет использоваться - пользователю разрешено писать что-то в RichEdit1 или туда будет только программно что-то вписываться?

А для "покраски текста" использовать RichEdit1Change, да ещё и с циклом по всему тексту как-то слишком жестоко.....

Ну если это будет чат, то можно сделать что-то вроде такого:

Procedure AddMessage(Name, Msg: String);
Var n: Integer;
Begin
n:=Length(Form1.RichEdit1.Text); // запоминаем длину текста
Form1.RichEdit1.Lines.Add('<'+Name+'> Сообщение:');
Form1.RichEdit1.SelStart:=n; // устанавливаем начало выделения
Form1.RichEdit1.SelLength:=Length(Name)+2; // устанавливаем длину выделения (длина имени плюс две скобки)
Form1.RichEdit1.SelAttributes.Style:=[fsBold, fsUnderline]; // делаем имя жирным и подчёркнутым
Form1.RichEdit1.SelAttributes.Color:=clNavy; // ... и тёмно синего цвета
Form1.RichEdit1.Lines.Add(Msg); // добавляем само сообщение
Form1.RichEdit1.Lines.Add(''); // пустая строка, чтоб разделить сообщения
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
AddMessage('Tom', 'Hello!'); // проверка процедуры
AddMessage('Robot', 'My'#13'Name'#13'Is'#13'Robot!'); // #13 сделает переход на новую строку (#10 добавлять не надо, "Lines.Add" его обычно само добавляет)
End;