程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 正則表達式起步

Delphi 正則表達式起步

編輯: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;


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved