Проблема с TRegExpr

[zver777]

При использовании регулярных выражений(TRegExpr) возникает такая ошибка


Использую вот такой код

if RegExpr1.Exec(s) then
         begin
           repeat
            s:=regexpr1.Replace(s,regexpr1.Match[1]);
           until not regexpr1.ExecNext;
         end;

Подскажите, что это значит и чем она вызвана.

[Greek9000]

Есть предположение, что выходите за размерность массива.
вместо
s:=regexpr1.Replace(s,regexpr1.Matc h[1]);
попробуйте
s:=regexpr1.Replace(s,regexpr1.Matc h[0]);

[zver777]

Если использовать regexpr1.Match[0], то получится, что будет текст заменяться на тот же текст.

Мне же надо из строки вида
<blabla>text<blabla> при использовании реглуярки <blabla>(.*?)</blabla>
заменить на text.

[Greek9000]

Прошу прощения. Действительно сморозил глупость.

Ваша проблема возникает из-за того, что внутри ф-ции Replace происходит вызов ExecNext. Из-за этого происходит повторный вызов этой самой ExecNext уже в Вашем коде, который и приводит к возникновению исключения.

Вот пример рабочего кода, которым подсвечиваются ключевые слова:

//...
    dlt := 0;
    r.Expression := sexp;
    if r.Exec(InActiveTags) then begin
      repeat
        smch := '<color = 255><b>'+r.Match[0]+'</b></color>';
        mp := r.MatchPos[0];
        ml := r.MatchLen[0];
        Delete(srs, mp+dlt, ml);
        Insert(smch, srs, mp+dlt);
        dlt := dlt + (Length(smch)-Length(r.Match[0]));
      until not r.ExecNext;
    end;
  finally
    r.Free;
  end;
  Result := srs;

Т.о. здесь замена производится вручную по всем найденным совпадениям.
Если не хочется делать этого вручную, то - как мне кажется - придётся использовать два экземпляра TRegExp-а. Первый для того, что бы найти все совпадения, второй - что бы производить замены.
Есть ещё вариант первым шагом построить список необходимых замен, после чего в цикле вызвать Replace для каждого элемента полученного списка.