RSS订阅 | 匿名投稿
您的位置:网站首页 > 正则 > 正文

delphi中实现正则表达式

作者:admin 来源:未知 日期:2010/4/29 22:53:37 人气: 标签:

网上有个朋友写的一篇30分钟正则表达式入门的东东,不错,推荐。
使用时请在uses中加入RegExpr(有现成的pas文件,你需要可以向我要)
function GetName(TextToCheck:String):string;
Var
myExpr: TRegExpr;
str:string ;
begin
myExpr := TRegExpr.Create;
Try
myExpr.Expression :='name="(.*?)"';//具体的表达式写在这里,当然,你可以继续把它封装。
if myExpr.Exec(TextToCheck) then
repeat
str:=str+myexpr.Match[1]+#13#10;
until not MyExpr.ExecNext;
finally
myExpr.Free;
end;
Result:=str;
end;
调用方式
Memo2.Lines.Add(GetName(Edit1.Text));


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: