判断字符串中是否有中文

System.Text.Encoding.Default.GetByteCount(str)==str.Length
为无中文，否则为有中文

DELPHI
function CheckEn(AEn: String): Boolean;
var
ans : AnsiString;
wis : WideString;
i, anslng, wislng: integer;
begin
Result := False;
ans := AnsiString(AEn);
wis := WideString(AEn);
for i := 1 to Length(AEn) do
begin
anslng := Length(ans[i]);
wislng := Length(AnsiString(wis[i]));
if anslng <> wislng then Result := False
else if ord(ans[i])<128 then
begin
Result := True;
Break;
end;
end;
end;