Delphi中的正则表达式Pas类应用