Создание собственного редактора для проверки составляемых регулярных выражений

Как я уже писала, после составления регулярных выражений "по теории", их необходимо проверить с использованием того инструмента, которым они потом будут использоваться. Мы работаем с объектом RegExp в Delphi (надеюсь, все уже познакомились с библиотекой хотя бы просто прочитав статью, ссылку на которую я привела в предыдущем посте). Перейдем от теории к практике. Создадим простенький инструмент, позволяющий искать выражения, удовлетворяющие паттерну. На форме будет memo для исходного текста, memo для вывода результатов, edit для ввода регулярного выражения и кнопка "Find".


В этом простеньком проекте необходим только код для обработки нажатия кнопки Find. Он будет следующим:

procedure TForm1.Button2Click(Sender: TObject);
var
  R: TRegExp;
  mc: MatchCollection;
  m: Match;
  sm: SubMatches;
  i, j: Integer;
begin
  memOutput.Clear;
  R := TRegExp.Create(Self);
  try
    R.Pattern := edtRegExpFind.Text;
    R.IgnoreCase := cbIGNCASE.Checked;
    R.Global := cbGLOBAL.Checked;
    R.Multiline:=CBMULTILINE.Checked;
    mc := R.Execute(memInput.Lines.Text) as MatchCollection;
    if mc.Count > 0 then begin
      for i := 0 to mc.Count - 1 do begin
        m := mc[i] as Match;
        memOutput.lines.Add(intToStr(i)+'.');
        MemOutput.Lines.Add(Format('Match[%d] = "%s"', [i, m.Value]));
        sm := m.SubMatches as SubMatches;
        for j := 0 to sm.Count - 1 do
          memOutput.Lines.Add(Format('  SubMatch[%d] = "%s"', [j, VarToStr(sm[j])]));
      end;
    end;
  finally
    m := nil;
    sm := nil;
    mc := nil;
    R.Free;
  end;
end;

cbIGNCASE, cbGLOBAL, CBMULTILINE — чекбоксы соответственно определяющие свойства IgnoreCase, Global и Multiline для регулярного выражения.

Думаю, что выкладывать исходник — нет смысла. Кому что непонятно — спрашивайте в комментариях.

Статьи схожей тематики: