RegularExpressions(1) 一个 Net 样式的、适用于 Delphi 2009 之后版本的正则表达式组件

现在推荐使用官方的正则表达式组件: http://www.cnblogs.com/del/archive/2011/03/28/1998100.html

---

RegularExpressions 和前面刚刚学完的 GdiPlus 都是 Erik van Bilsen 先生在 2009 年完成的.

Erik van Bilsen 的网站: www.bilsen.com.

RegularExpressions1.0 直接下载地址: www.bilsen.com/regularexpressions/RegularExpressions1.0.zip

---

RegularExpressions 的基础是 C 写的(来自 www.pcre.org), 发布时无需携带 DLL 了.

最终的逻辑结构和命名高度模仿了 Net 的 System.Text.RegularExpressions, 可直接通过 MSDN 学习.

MSDN 上相关的参考地址:
http://msdn.microsoft.com/zh-cn/library/system.text.regularexpressions.aspx
http://msdn.microsoft.com/zh-cn/library/hs600312.aspx

虽然没有实现 Net 的所有功能, 但主要功能都有了.

另外 Erik van Bilsen 继续了他善用接口和类方法的风格, 用起来大大节省代码量, 很爽!

使用前只需把 Lib\RegularExpressions.pas 载入库路径:
Tools -> Options -> Library-Win32 -> Library path.

---

测试下:

---

uses RegularExpressions;

procedure TForm1.FormCreate(Sender: TObject);
var
  Regex: IRegex;
  str: string;
begin
  Regex := TRegex.Create('\w+');
  str := Regex.Replace('万一的 Delphi 博客', 'DELPHI');
  ShowMessage(str); { 万一的 DELPHI 博客 }
end;

接下来, 准备两三天学完它.

---