delphi中实现正则表达式


网上有个朋友写的一篇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));


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678