Проблема С Regexpr

[zloy]

procedure TForm1.btn1Click(Sender: TObject);
var
  r: TRegExpr;
  strReg,result1, result2, result3: string;
begin

  r := TRegExpr.Create;
  strReg := '[%%слово1%]111[%%слово2%] this is an example abc123123abc this is an example [%%слово3%]';
  //r.Expression := '\[%%(.*?)%\]\s';
  //r.Expression := '\[%%(.*?)%\]';
 r.Expression := '\[%%(.*?)%\]';
  if (r.Exec(strReg)) then
  begin
    result1 := r.Match[1];
    result2 := r.Match[2];
    result3 := r.Match[3];
  end
  else
    showmessage('Не найдено');
  mmo1.Lines.Add(result1);
  mmo1.Lines.Add(result2);
  mmo1.Lines.Add(result3);
end;

получаю только result1 = слово1 остальные пустые как поправить

 

[Sascha]

procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRegExpr;
  strReg,result1, result2, result3: string;
begin

  r := TRegExpr.Create;
  strReg := '[%%слово1%]111[%%слово2%] this is an example abc123123abc this is an example [%%слово3%]';
  //r.Expression := '\[%%(.*?)%\]\s';
  //r.Expression := '\[%%(.*?)%\]';
r.Expression := '\[%%(.*?)%\]';
  if (r.Exec(strReg)) then
  repeat
  result1 := r.Match[1];
  result2 := r.Match[2];
  result3 := r.Match[3];
  memo1.Lines.Add(result1);
  memo1.Lines.Add(result2);
  memo1.Lines.Add(result3);
  until not r.ExecNext
  else
  showmessage('Не найдено');

  end;

Както так

 

[zloy]

спасибо помогло

  r.Expression := '\[%%(.*?)%\]';
  if (r.Exec(strReg)) then
    repeat
      result1 := r.Match[1];
      mmo1.Lines.Add(result1);
    until not r.ExecNext
  else
    showmessage('Не найдено');

без цикла никак? я думал регулярка должна была создать массив нет?

 

[Sascha]

без цикла у тебя находит первую строку и всё , потому и выдает "Слово 1 "а остальные не показывает