Delphi 正則表達式起步

在 Delphi 中使用正則表達式, 目前 PerlRegEx 應該是首選, 准備徹底而細致地研究它.

　　官方網站: http://www.regular-expressions.info/Delphi.Html

　　直接下載: http://www.regular-expressions.info/download/TPerlRegEx.zip

　　安裝方法:

　　1、先把解壓的 TPerlRegEx 文件夾放一個合適的地方, 我放在了 Delphi 的 Imports 目錄中.

　　2、目前最新 For Win32 的版本是對 Delphi 2006 的, 2007 也能用.

　　打開 PerlRegExD2006.dpk, 提示缺少資源文件, 沒關系;

　　在 Project Manager 窗口中的 PerlRegExD2006.bpl 上點擊右鍵, 執行 Install;

　　這時在 Tool Palette 的列表中已經有了 TPerlRegEx, 在 JGsoft 組.

　　3、Tools -> Options -> Environment Options -> Delphi Options -> Library-Win32 -> Library path ->

　　添加路徑: ...ImportsTPerlRegEx

　　4、可以使用了! 直接 uses PerlRegEx 或從 Tool Palette 添加都可以.

　　如果不喜歡 Tool Palette 的添加方式可以省略第二步.

　　計劃的學習步驟: 1、正則語法; 2、TPerlRegEx 功能.

//先測試一下:
uses
　PerlRegEx; //uses 正則表達式單元
procedure TForm1.FormCreate(Sender: TObject);
var
　reg: TPerlRegEx; //聲明正則表達式變量
begin
　reg := TPerlRegEx.Create(nil); //建立
　reg.Subject := 'sSsS';　　//這是要替換的源字符串
　reg.RegEx　 := 's';　　　 //這是表達式, 在這裡是准備替換掉的子串
　reg.Replacement := '◆';　//要替換成的新串
　reg.ReplaceAll;　　　　　 //執行全部替換
　ShowMessage(reg.Subject); //返回替換結果: ◆S◆S
　FreeAndNil(reg); //或 reg.Free
end;