判断字符串中是否有中文

最新推荐文章于 2023-05-23 11:47:49 发布

原创最新推荐文章于 2023-05-23 11:47:49 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #function #string

ASP.NET 同时被 2 个专栏收录

7 篇文章

订阅专栏

Delphi

3 篇文章

订阅专栏

博客介绍了在Delphi中检测字符串是否包含中文的方法。通过比较System.Text.Encoding.Default.GetByteCount(str)与str.Length判断，还给出了具体的Delphi函数CheckEn，用于精确检测字符串是否为纯英文。

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;