Delphi里怎么使用正则表达式

Question

正则表达式在字符串的处理方面很有用处的，有很多语言也支持，
但是Delphi里好象不支持的，不知道delphi里怎么用了？ 望高手指点！

Answer 1

是正切吧？
UnitMathfunction Tan(const X: Extended): Extended;

Answer 2

需要第三放组件；delphi 自己带的maskEdit 也可以实现一些功能。看help

Answer 3

正则表达式在字符串的处理方面很有用处的，有很多语言也支持，
但是Delphi里好象不支持的，不知道delphi里怎么用了？ 望高手指点！
////////////////////////////
正则表达式在字符串的处理方面很有用处
////////////////////////////////
没办法，遇到字符串都是自己写函数处理

Answer 4

正则表达式 需要自己写函数来实现处理，很多asp中的字符串验证其实都是自己实现的呀，关于asp中正则表达式的文章很多，你可以搜索一下，然后改一下就可以用到delphi中了

Answer 5

可以使用ASP中的正则表达式COM组件.或者你觉得不爽用Delphi写的我也有.呵呵.正则表达式的确爽,是个好东西.
你要就留EM

Answer 6

网上有一个正则表达式的类，好象叫regexr,到google一搜就知道了，而且有示例，一看便知

Answer 7

Delphi中有一个第三方控件。
不过，我昨天发现在ASP中：set reg=server.CreateObject("VBScript.RegExp")大家懂了吧？
我还没试过，谁有空试试呢？(系统必须支持VBS)

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  reg:Variant;begin
  reg:=CreateOleObject('VBScript.RegExp');end;

Answer 9

晕，不能连续回复三次。成功了。试试：procedure TForm1.Button1Click(Sender: TObject);
var
  reg:Variant;
begin
  reg:=CreateOleObject('VBScript.RegExp');
  reg.Pattern:='(\S+)(\s+)(\S+)';
  ShowMessage(reg.Replace('The quick brown fox jumped over the lazy dog.','$3$2$1'));
end;

Answer 10

只有 MASKEDIT 实现了一部分功能。可能需要第三方的控件支持。