uses
system.RegularExpressions;
function IsChineseName(const aName:string; const aMaxLength:Integer=10):Boolean;
begin
//只检查基本汉字:
// var Pattern := '^[\x{4E00}-\x{9FA5}]{2,'+aMaxLength.ToString+'}(·[\x{4E00}-\x{9FA5}]{2,'+aMaxLength.ToString+'}){0,2}$';
//检查下面所有内容:
//基本汉字 4E00-9FA5
//基本汉字补充 9FA6-9FCB
//扩展A 3400-4DB5
//扩展B 20000-2A6D6
//扩展C 2A700-2B734
//扩展D 2B740-2B81D
//兼容汉字 F900-FAD9
var Pattern := '^[\x{4E00}-\x{9FA5}\x{9FA6}-\x{9FCB}\x{3400}-\x{4DB5}\x{20000}-\x{2A6D6}\x{2A700}-\x{2B734}\x{2B740}-\x{2B81D}\x{F900}-\x{FAD9}]{2,'+aMaxLength.ToString
+'}(·[\x{4E00}-\x{9FA5}\x{9FA6}-\x{9FCB}\x{3400}-\x{4DB5}\x{20000}-\x{2A6D6}\x{2A700}-\x{2B734}\x{2B740}-\x{2B81D}\x{F900}-\x{FAD9}]{2,'+aMaxLength.ToString+'}){0,2}$';
result:= TRegEx.Match(aName,Pattern).Success;
end;
直接上代码了!
默认允许10个字的姓名,支持中间有分隔符“·”的姓名。
参数aMaxLength可以设置允许姓名的最大长度。
要引用system.RegularExpressions单元。
Unicode 15 版本里的中文字符集范围