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 -> 
    添加路徑: ...\Imports\TPerlRegEx

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;

 
 
 

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2020 ITdaan.com