delphi正则表达式和使用例子，过虑字符串中的乱码。