delphi 如何判断中文还是英文

Question

delphi 如何判断中文还是英文

Answer 1

  if CheckUrl(cobAddress.Url)=true then
    eWebForm.Go(cobAddress.Url, False)
    else
    eWebForm.Go('http://www.baidu.com//s?wd='+cobaddress.Text, False) ;  end;
判断cobAddress.Url是中文还是英文

Answer 2

//要判断是否中文得有个中文字库进行比较才行的
//以下是判断字符是单字节还是双字节
ByteType('123你好吗',1) = mbSingleByte //单字节
ByteType('123你好吗',4) = mbLeadByte   //双字节字符的第一个字符
ByteType('123你好吗',5) = mbTrailByte  //双字节字符的第二个字符

Answer 3

gb2312编码两个连在一起的都大于160的ascii码就是中文。

Answer 4

看看.Net与字符编码（理论篇）

Answer 5

给一个比较笨的办法
function test(str:string):boolean;//返回为True则字符串中有中文
var
  enStr:string;
  cnStr:widestring;
begin
  enStr := str;
  cnStr := wideString(str);
  result := length(enStr)<> length(cnStr);
end;

Answer 6

function IsHz(Source: string): Boolean;
begin
  result := ((Word(Source[1]) shl 8 + Word(Source[2])) >= $B0A1) and ((Word(Source[1]) shl 8 + Word(Source[2])) <= $D7F9)
end;