Привет всем!
Есть вот такой вот код:
Код:
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. Код работает, но ужасно медленно.
Может, кто-нибудь подскажет как его оптимизировать?
Заранее благодарен!