Delphi 判断字符是否是汉字

function IsHZ(ch: WideChar): boolean;
var
  i: Integer;
begin
  i := Ord(ch);
  if (i < 19968) or (i > 40869) then
    result := False
  else
    result := True;
end;