怎样判断字符串中只有中文? 中文的高位是特定的你可以参考MSDN具体我可以回去帮你查查 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试for ii := 1 to length(yourstring) dobegin if yourstring[ii] > #127 then begin showmessage('有中文字符'); end;end; for i := 1 to length(s) dobegin if ord(s[i]) > $A1 then begin showmessage('Chs'); end;end; 楼上的做法很对!中文汉字的编码信息(ASCII值)是大于127的。 function ByteType(const S: string; Index: Integer): TMbcsByteType;IsDBCSLeadByte告诉你一个非常有用的函数。 bytetype 它可以判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或后一位。mbSingleByte 单字母mbLeadByte 双字节第一位mbTrailByte 双字节第二位 求书--网络数据库应用系统开发实用教程(Delphi版) Range Check Error 没分了请大家帮帮忙吧,统计的问题! 请问 dxCntner是什么控件中的? 还是老问题? 各位大虾你们做程序有写程序文档吗? 怎么判断一个数值表达式是否合法!!!!!!!!! 请问类似小新日历,人生日历等,点击系统时间调出程序的功能是怎么实现的?截取消息还是其它别的方法,谢谢大家! 请问有什么方法可以增加可用分!好可怜,我没分了! 如何寫一個函數得到某月最后一天? 很急的问题,我的2000任何驱动都安装不上,安装到最后,都说缺少需要的文件,怎么办 第一次提问:有关findkey查询数据库记录。
for ii := 1 to length(yourstring) do
begin
if yourstring[ii] > #127 then
begin
showmessage('有中文字符');
end;
end;
begin
if ord(s[i]) > $A1 then
begin
showmessage('Chs');
end;
end;
IsDBCSLeadByte
告诉你一个非常有用的函数。
bytetype 它可以判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或
后一位。
mbSingleByte 单字母
mbLeadByte 双字节第一位
mbTrailByte 双字节第二位