Как укорить работу со строками в Richedit?

[iiunbreakableii]

Здравствуйте господа, ПРОграммеры!
Подскажите пожалуйста как ускорить этот процесс:

procedure TMainForm.colorize;
var
  i, tagpos,spacepos: integer;
  str, CurState: string;
begin
  for I := 0 to Richedit.Lines.Count - 1 do          
    begin
      str:=Richedit.lines.Strings[i];
      tagpos:=pos('/',str);
      while tagpos<>0 do
        begin
           spacepos:=posex(' ',str,tagpos+1);
           Richedit.SelStart:=Richedit.Perform(em_lineindex,i,0)+tagpos;
           Richedit.SelLength:=spacepos-tagpos-1;
           Richedit.SelAttributes.Color:=clblue;
           tagpos:=posex('/',str,tagpos+1);
        end;
    end;
end;

Когда в Richedit грузятся большие файлы(>1 Mb), то программа "уходит в себя" как минимум на 5 минут.

[Utkin]

Не понял, Вам нужно ускорить именно этот участок или загрузку текстов в RichEdit?
Касательно, Вашего фрагмента текста - использование RichEdita для раскраски самая худшая идея. Я как-то пытался сделать подсветку синтаксиса. Лучше использовать другие компоненты.

[iiunbreakableii]

Мне нужно ускорить сам цикл обработки строк.
Вообще-то кроме подсветки, в проге выделяются слова (справа и слева от '/')
Вот код

procedure TMainForm.BbtnClick(Sender: TObject);
var
  i, j, x, y, tagpos,spacepos: integer;
  str, CurState, word: string;
  sum: Extended;
begin
  b.RemoveRows(1,b.RowCount-1); //B - TADVStringGrid
  for I := 0 to Tagged.Lines.Count - 1 do	//Tagged - TRichedit
    begin
      str:=Tagged.lines.Strings[i];
      tagpos:=pos('/',str);
      while tagpos<>0 do
        begin
          spacepos:=tagpos-1;
          while (spacepos>0)and(str[spacepos]<>' ') do dec(spacepos);
          word:=copy(str,spacepos+1,tagpos-spacepos-1);
          spacepos:=tagpos+1;
          while (spacepos<length(str))and(str[spacepos]<>' ') do inc(spacepos);
          CurState:=copy(str,tagpos+1,spacepos-tagpos);
          x:=b.Rows[0].IndexOf(CurState); if x<1 then ShowMessage('Warning! \'+curstate+'/ not found.');
          y:=b.Cols[0].IndexOf(Word);
          if y=-1 then
             begin
               b.AddRow; y:=b.RowCount-1;
               b.Cells[0,y]:=LowerCase(word);
               for j:= 1 to n do
                 begin
                   b.Cells[j,b.RowCount-1]:='0';
                   b.CellProperties[j,b.RowCount-1].FontColor:=clblue;
                 end;
             end;
          b.Cells[x,y]:=inttostr(strtoint(b.Cells[x,y])+1);
          b.CellProperties[x,y].FontColor:=clred;
          tagpos:=posex('/',str,tagpos+1);
        end;
    end;
  for i:= 1 to b.RowCount-1 do
    begin
      sum:=b.RowSum(i,1,b.ColCount);
      for j:= 1 to b.ColCount-1 do
        b.Cells[j,i]:=FloatToStrF(strtoint(b.Cells[j,i])/sum,ffNumber,2,2);
    end;
end;

[Stilet]

использование RichEdita для раскраски самая худшая идея.

Ну почему же, если грамотно сделать подкачку в РичЭдит то вполне можно его использовать. Впрочем собственный редактор написать не так уж и сложно.

[iiunbreakableii]

А как грамотно сделать подкачку в Richedit?

[Stilet]

А как грамотно сделать подкачку в Richedit?

Я лично так сразу не готов ответить. Это нужно разработать стратегию. Читать файл не весь а олько ту его часть которая может поместиться на экране, и при отрисовке отрисовывать сразу стили... т.е. фактически написать свой РичЭдит...
Ну я бы так по крайней мере сделал...

[Utkin]

Я и говорю, используй не RichEdit. Компоненты по подсветке синтаксиса уже обсуждались (лично я участвовал в двух таких темах) - используйте поиск по форуму. Задача решается гораздо быстрей.
Ну а так, надо отслеживать прокрутку RichEdita - чтобы не было проблем со скоростью читать лучше через буфер (минимум на три видного пространства RichEdita - а то как же с PageUp PageDown). Работу с фалами осуществлять через потоки (сам проверял - быстрей чем стандартными методами).