判斷字符串中是否有中文
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;
爲無中文,否則爲有中文
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;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.