求助，正则的一个问题

Question

我要匹配  ABC:XXX
XXX 代表数字，比如 ABC:ABC:123BBB我要得到结果 ABC:123BBB我用的PerlRegEx，该如何写呢？

Answer 1

{我也不熟悉, 写得不一定对, 供参考}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.PerlRegEx1.Subject := 'ABC:ABC:123BBBABC:ABC:999BBB';
  Self.PerlRegEx1.RegEx := 'ABC:([0-9])([0-9])([0-9])BBB';
  while Self.PerlRegEx1.MatchAgain do
    ShowMessage(Self.PerlRegEx1.MatchedExpression);
end;