[BlackX]

Привет всем!
Есть вот такой вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject);   var   l,i: integer;   sym: string; begin   l:=length(RichEdit1.Lines.Text);   for i:=0 to l do     begin       sym:=Copy(RichEdit1.Lines.Text,i,1);       if (sym='G') or (sym='M') or (sym='F') then         ColorText(RichEdit1,i-1,clGreen);       if (sym='X') or (sym='Y') then         ColorText(RichEdit1,i-1,clRed);       end; end;

С его помощью во всем тексте RichEdit нахожу нужные мне символы и перекрашиваю их собственной процедурой ColorText. Код работает, но ужасно медленно.
Может, кто-нибудь подскажет как его оптимизировать?
Заранее благодарен!

[Black Raider]

Попробуйте так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var i, j, allchar : integer;     st : string; begin   allchar := 0;   for i := 0 to RichEdit1.Lines.Count-1 do   begin     st := RichEdit1.Lines[i];     if   (pos('G',st) > 0)       or (pos('M',st) > 0)       or (pos('F',st) > 0)       or (pos('X',st) > 0)       or (pos('Y',st) > 0) then begin         for j := 1 to length(st) do         begin           if (st[j] = 'G') or (st[j] = 'M') or (st[j] = 'F') then           ColorText(RichEdit1,allchar + j,clGreen);           if (st[j] = 'X') or (st[j] = 'Y') then           ColorText(RichEdit1,allchar + j,clRed);         end;     end     allchar := allchar + st;   end; end;

[BlackX]

Попробовал. Немножко неправильно срабатывает, но смысл я понял. Надо работать со строками, а не со всеми символами сразу.
Спасибо за совет!