Question

如何在Delphi中使用正则表达式

Answer 1

TPerlRegEx就不存在这样的问题。

　　//uses PerlRegEx;

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　s:string;
　　Reg:TPerlRegEx;
　　begin
　　Reg:=TPerlRegEx.Create(nil);
　　Reg.Subject:='中国人民(大陆台湾)';
　　s:='\(.+?\)';
　　Reg.RegEx:=s;
　　Reg.Replacement:='';
　　Reg.ReplaceAll;
　　memo1.Text:= Reg.Subject;//='中国人民'
　　reg.Free;
　　end;

　　效果是正常的。建议你下载这个试试。
　　你的表达式好像漏了一个反斜杠，我测试了一下，是可以通过的：

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　s:string;
　　Reg:TPerlRegEx;
　　begin
　　Reg:=TPerlRegEx.Create(nil);
　　Reg.Subject:=memo1.Text;//=<table align='center'><tr><td bgcolor='#EBEBE4'> 共开头且以table\>结尾的字符
　　s:='<table align=''center''><tr><td bgcolor=''#EBEBE4''> 共.*?table\\>';
　　Reg.RegEx:=s;
　　Reg.Replacement:='';
　　Reg.ReplaceAll;
　　memo1.Text:= Reg.Subject;//=结尾的字符
　　reg.Free;
　　end;

Answer 2

我之前有用过delphi2007，不清楚后来的delphi版本有没有加入正则支持，2007的时候是没有的，需要安装象PerlRegEx这样的控件。delphixe之后据说加入了RegularExpressions，没用过就不清楚了。