如何判断edit中输入的内容有双字节字（中日韩等）。请给出参考源码。 ( 积分: 50 )

  • 主题发起人 主题发起人 leway
  • 开始时间 开始时间
function IsChineseChar(var s:String):boolean;
var
i:Integer;
begin
Result:=false;//默认为英文或数字
for i:= 1 to Length(S) do
begin
if Ord(S)>=160 then
Result:=true;
break;
// 汉字符ASCII大于等于160
end;
end;
 
能保证大于160的都是双字节？
 
for i:=1 to Length(edit.text) do
if edit.text > #160 then
begin
ShowMessage('有双字节字');
break;
end;
 
ByteType函数啊，Delphi自带的。
 
function CCIncluded(s : string): boolean;
var
i: integer;
begin
result:=false;
for i:=1 to Length(s) do
begin
if (ByteType(s, i) = mbLeadByte) or (ByteType(s, i) = mbTrailByte) then
begin
result:=true;
exit;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if CCIncluded(Edit1.Text) then
ShowMessage('含有中文');
end;
 
if Length(Edit1.Text) <> Length(WideString(Edit1.Text) then
ShowMessage('有双字节');
 
用WideString和String来装载，比较Length()?
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

C
如何判断一个字符串中的内容全是英文或者数字？(100分)
回复
2
查看
165
linsb
L
白
请教各位大虾一个关于TStringList的字符串的优化判断问题！ (200分)
2
回复
23
查看
443
白衣书生
白
L
如何判断 ListBox 中哪项被双击？(30分)
回复
2
查看
129
leo_zzz
L
Z
如何判断字段值是空日期？(50分)
回复
8
查看
131
qianwt
Q
H
如何判断一个字符是英文、中文还是特殊字符。(100分)
回复
15
查看
913
hata_liao
H
后退
顶部