如何区分字符串中的汉字字符和非汉字字符(例如英文字母,数字,标点符号)? 如何区分字符串中的汉字字符和非汉字字符(例如英文字母,数字,标点符号(全角和半角))?例如:'中国abc你好123,,' 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var s:string; t:widestring; i:integer;begin s:='12阿f'; t:=widestring(s); for i:=1 to length(t) do begin if hi(ord(t[i]))=0 then showmessage('英文:'+t[i]) else showmessage('汉字:'+t[i]); end;end; cxListBox 选中项的问题! 怎样把一个数据库备份文件以新的数据库名安装在SQL SERVER里? 自己定义的类的运算符重载的申明怎么写的? socket问题,请大家多帮忙,在线等待 简单问题 一个很简单的问题:如何定义一个全局变量,即能被整个程序,任何窗体调用。 参数传址怎么写 关于DataModule封装的相关问题 关于delphi中搞二次开发! 请问,调用C++写的DLL,参数和返回值都是 char* , Delphi中如何定义,如何引用? 请使用过TWebBrowser的高手近来 程序里调用EXE??????????????????????在线等待
t:widestring;
i:integer;
begin
s:='12阿f';
t:=widestring(s);
for i:=1 to length(t) do
begin
if hi(ord(t[i]))=0 then
showmessage('英文:'+t[i])
else
showmessage('汉字:'+t[i]);
end;
end;