十分急的问题。！！！

Question

to:cobi
    不光是数字和英文字母，请问是否有更好的方法，Delphi 中好像有一个函数可以判断该字符编码是否是Unicode编码，不知道是什么函数。

Answer 1

function IsHZ(s:String {two Chars}):Boolean
Begin
  result:=False;
  If ( ord(s[1])>=164) and ( ord(s[2])>=164 )  then
    result:=True;
     End;

Answer 2

你说的情况我也遇到过，我是如下解决的：
用ByteType函数，返回值为
mbSingleByte:单字节字符；
mbLeadByte:双字节字符的首字节；
mbTrailByte:双字节字符的尾字节；