Очень сильно замедляется регулярка RegExpr

[FleXik]

Вобщем проблема такая - очень сильно замедляется регулярка RegExpr, сначала работает быстро а потом с каждым разом все больше и больше замедляется, как решить проблему? В потоке строку:

sMemo1.Lines.Add(RegExp.Match[1]);

не синхронизирую (пробовал и синхронизировать - разницу не заметил). Спасибо.

Код:

var
RegExp:TRegExpr;
i:integer;
begin
RegExp:=TRegExpr.Create;
RegExp.Expression:='от(.*?)до';
for i:=0 to 100 do
begin
if RegExp.Exec('переменная') then
begin
repeat
sMemo1.Lines.Add(RegExp.Match[1]);
until not RegExp.ExecNext;
end;
end;
RegExp.Free;
end;

[Serge_Bliznykov]

во-первых, зачем Вам безумный цикл от 0 до 100 ??!!!!
Начните с того, что уберите его!

во-вторых, использовать визуальные компоненты в потоке (даже ещё и без синхронизации) - это как-то не комильфо!

ну и в третьих, так, в порядке бреда...
а если написать так:

if RegExp.Exec('переменная') then
begin
  repeat
  until not RegExp.ExecNext;
end;

скорость падает?

а если так?

s := '';
if RegExp.Exec('переменная') then
begin
  repeat
     s := s + #13 + RegExp.Match[1];
  until not RegExp.ExecNext;
end;

[Stilet]

ИМХО тут не регулярка тупит а прорисовка.

sMemo1.Lines.BeginUpdate;
for i:=0 to 100 do
...
end;
sMemo1.Lines.EndUpdate;

[FleXik]

решил.....

[Serge_Bliznykov]

соответственно все в цикле, или я не прав?

насколько я вижу из приведённого вами примера - i не используется.
Поэтому, скорее всего, ВЫ НЕ ПРАВЫ!

кто Вам мешает убрать (закомментировать строчку с for ) и проверить?!


p.s. в моём сообщении выше даны ДВА примера кода. И спрашивалось, как это влияет на перерисовку. Вы ничего не ответили!

[FleXik]

Serge_Bliznykov, у меня не совсем i цикл) дал как пример, я использую такой цикл:

var
b:Boolean;
begin
b:=True;
while b=True do
begin
//запрос + регулярки
end;
end;

if RegExp.Exec('переменная') then
begin
  repeat
  until not RegExp.ExecNext;
end;

этот ваш пример не очень удачный, т.к я именно так и использую только у меня еще выводится результат в sRichEdit, а второй вариант сейчас попробую и отпишу.

[northener]

sMemo1.Lines.BeginUpdate;
for i:=0 to 100 do
...
end;
sMemo1.Lines.EndUpdate;

Не поможет. В методах TStrings и так эти скобки поставлены на каждый чих.
Реально ускорить может только замена TMemo на TSringList. А если конечный итог нужно видеть в Мемо, то после окончания цикла сбрасывать в мемо из стринглиста все разом через AddStrings.

[FleXik]

всееее сам решил проблему))) вобщем у меня был не правильно составлен код внутри регулярки, у меня внутри регулярки было еще несколько проверок, пример:

было:

while b=True do
begin
// запрос
if RegExp.Exec('переменная запроса') then
begin
repeat
if Pos(RegExp.Match[1], Form1.sRichEdit1.Lines.Text)=0 then
Form1.sRichEdit1.Lines.Add(RegExp.Match[1]);
until not RegExp.ExecNext;
end;
end;

стало:

while b=True do
begin
// запрос
if RegExp.Exec('переменная запроса') then
begin
if Pos(RegExp.Match[1], Form1.sRichEdit1.Lines.Text)=0 then
repeat
Form1.sRichEdit1.Lines.Add(RegExp.Match[1]);
until not RegExp.ExecNext;
end;
end;

конечно проверок аж 3шт и я их пихало прямо в repeat - until а нужно было за него выводить скорость жестко поднялась и стабильно работает

[Stilet]

Не поможет. В методах TStrings и так эти скобки поставлены на каждый чих.

Поможет. Отрисовку убирает ускоряя процесс попадания строки в список. Сам пользуюсь часто.