delphi常用正则表达式

function checkanystr(str: string; mytype: integer):Boolean;

var

myper: TPerlRegEx;

areg: string;

begin

Result := False;

if str = '' then Exit;

myper := TPerlRegEx.Create(nil);

try

myper.Subject := str;

case mytype of

//email

0:areg := '\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*';

//整数

1:areg := '^-?[1-9]\d*$';

//浮点数

3:areg := '^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$';

//国内电话

4:areg := '\d{3}-\d{8}|\d{4}-\d{7}';

//数字字符下划线

5:areg := '^\w+$';

//腾讯qq

6:areg := '[1-9][0-9]{4,}';

//国内邮编

7:areg := '[1-9]\d{5}(?!\d)';

//身份证

8:areg := '\d{15}|\d{18}';

//ip地址

9:areg := '\d+\.\d+\.\d+\.\d+';

//网址

10:areg := '[a-zA-z]+://[^\s]* ';

//账号，字母开头，5-15位字符数字下划线

11:areg := '^[a-zA-Z][a-zA-Z0-9_]{4,15}$';

end;

myper.RegEx :=areg ;

Result := myper.Match;

finally

FreeAndNil(myper);

end;

end;

http://blog.csdn.net/y281252548/article/details/18813419