判断某字符串中是否有中文

 //判断s中是否有中文字符

function HaveChi(s:string):Boolean;
var
  I:integer;
begin
  result:=false;
  for I:=1 to Length(s) do
    if ByteType(s,I)= mbLeadByte then
    begin
      result:=true;
      exit;
    end;
end;