Delphi TJclAnsiRegEx

需先安裝 JEDI VCL for Delphi
和 Perl-compatible Regular Ex-pressions

將 \Program Files\GnuWin32\bin\pcre3.dll 複製到
   \WINDOWS\system32 目錄下，並更名為 pcre.dll
>copy "\Program Files\GnuWin32\bin\pcre3.dll" \WINDOWS\system32\pcre.dll

開啟 Delphi 在 Form Create 事件中加入
uses
 JclPCRE;

procedure TForm1.FormCreate(Sender: TObject);
var
  Re: TJclAnsiRegEx;
  s: string;
  i: Integer;
begin
  Memo1.Lines.Clear;
  Re := TJclAnsiRegEx.CReate;
  try
    Re.Compile('\d+', True, False);
    s := 'hello 1234 test 5678 number'#13#10'90';
    i := 1;
    while Re.Match(s, i) do
    begin
      Memo1.Lines.Add(Re.CaptuRes[0]);
      i := Re.CaptureRanges[0].LastPos +2;
    end;
  finally
    Re.FRee;
  end;
end;
{
1234
5678
90
}