Delphi 中文姓名 合法性检查

本文整理自网络，侵删。

 
function checkCName(value: string): boolean;
var
  i, k: integer;
  cstr, estr: string;
begin
  result := false;
  k := pos(' ', value);

  if k > 0 then // 有空格
  begin
    cstr := copy(value, 1, k-1);
    estr := copy(value, k+1, 255);

    // 汉字部分不全是汉字
    if 2*length(widestring(cstr)) <> length(ansistring(cstr)) then
      exit;

    for i := 1 to length(estr) do // 英文部分不全是英文
    begin
      if not (estr[i] in ['a'..'z', 'A'..'Z']) then
        exit;
    end;
  end else // 没有空格
  begin
    if (2*length(widestring(value)) <> length(ansistring(value))) // 不全是汉字
      and (length(widestring(value)) <> length(ansistring(value))) then // 不全是英文
    begin
      exit;
    end;
  end;

  result := true;
end;
 

相关阅读 >>

Delphi real控件 rm格式的播放器

Delphi检查是否在64位windows环境中运行？

Delphi 字符串查找函数

Delphi 获取 cpu 使用率的单元

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

Delphi 获取listbox1的行值

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi combobox的属性和事件、及几个鼠标事件的触发

Delphi 农历源码

Delphi 正则提取txt中的email 数据

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 中文姓名 合法性检查