delphi 檢查用戶輸入必須是漢字串

Delphi 7的版本：
 function TForm1.IsChineseString(s: WideString): Boolean;
var
  i,j:Integer;
begin
//輸入必須是純漢字串
  result:=True;
  for i:=1 to Length(s) do
  begin
    j:=Ord(s[i]);
    if (j<19968) or (j>40869) then
    begin
      result:=False;
      Break;
    end;
  end;
end;

Delphi Berlin 版本：
 function TForm1.IsChineseString(s: String): Boolean;
var
  c:Char;
begin
  Result:=True;
  for c in s do
  begin
    if (Ord(c)<19968) or (Ord(c)>40869) then
    begin
      result:=False;
      Break;
    end;
  end;
end;

Delphi 7正則表達式的版本：
function TForm1.IsChinese(s:string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.Subject := s;
    reg.RegEx :='^[\W]+$' ;
    result := reg.Match;
  finally
    reg.Free;
  end;
end;
RegEx爲這些內容很差用，運行出錯，沒整明白。但用\W不嚴格,有的全角字符還能夠輸入.
//'[^\x00-\xff]+';//'[\u4e00-\u9fa5]+';//'[\x{4E00}-\x{9FA5}]+';

Delphi Berlin 版本：
uses System.ＲｅｇｕｌａｒEｘｐｒｅｓｓｉｏｎｓｃｏｒｅ；
function TForm76.IsChinese(s:string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.Subject := s;
    reg.RegEx :='^[\x{4E00}-\x{9FA5}]+$';
    result := reg.Match;
  finally
    reg.Free;
  end;
end;
這是一個理想的版本，仍是新版的Delphi強！

QDAC版本：
在QString單元中，IsHumanName(S,[nctChinese],0,MaxInt)來判斷指定的字符串中是否只包含中文字符。
裏面的IsChineseName,IsChineseAddr都是調用的他。
還不知QDAC是什麼，能夠去看看:http://blog.qdac.cc/.