Delphi 如何判断一个字符串是否包含汉字?
大虾帮忙!
//字符串是否包含汉字，是返回真，否则返回假
function TForm1.ifincludehz(strtxt:string):boolean;
var
i:integer;
begin
//先判断要截取的字符串最后一个字节的类型
//如果为汉字的第一个字节则减(加)一位
result:=false;
for i:=0 to length(strtxt) do
begin
if ByteType(strtxt,i) = mbLeadByte then
begin
result:=true;
break;
end;
end;
end;
function TForm1.ifincludehz(strtxt:string):boolean;
var
i:integer;
begin
//先判断要截取的字符串最后一个字节的类型
//如果为汉字的第一个字节则减(加)一位
result:=false;
for i:=0 to length(strtxt) do
begin
if ByteType(strtxt,i) = mbLeadByte then
begin
result:=true;
break;
end;
end;
end;
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2018-03-28
//字符串是否包含汉字，是返回真，否则返回假
function TForm1.ifincludehz(strtxt:string):boolean;
var i:integer;
begin
//先判断要截取的字符串最后一个字节的类型
//如果为汉字的第一个字节则减(加)一位
result:=false;
for i:=0 to length(strtxt) do
begin
if ByteType(strtxt,i) = mbLeadByte then
begin
result:=true;
break;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////
//判断字符是否是汉字
//如果是汉字那么，返回 True，如果不是汉字，那么返回 False
function IsMBCSChar(const ch: Char): Boolean;
begin
Result := (ByteType(ch, 1) <> mbSingleByte);
end;
我觉得最好还是在输入之前判断好一点本回答被网友采纳
function TForm1.ifincludehz(strtxt:string):boolean;
var i:integer;
begin
//先判断要截取的字符串最后一个字节的类型
//如果为汉字的第一个字节则减(加)一位
result:=false;
for i:=0 to length(strtxt) do
begin
if ByteType(strtxt,i) = mbLeadByte then
begin
result:=true;
break;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////
//判断字符是否是汉字
//如果是汉字那么，返回 True，如果不是汉字，那么返回 False
function IsMBCSChar(const ch: Char): Boolean;
begin
Result := (ByteType(ch, 1) <> mbSingleByte);
end;
我觉得最好还是在输入之前判断好一点本回答被网友采纳
