如题
解决方案 »
- 一个奇怪的问题?????????????
- 关于设置的格式打印不全
- 如何动态的设定RemoteDataModule中的ADOConnection属性
- 哪位大佬连我测试“结贴”功能发的2分贴也删除?
- 求EMS Query Builder componnets 2005(3.0)
- 关于又能返回文件生成时间时,又不影响其实程序对该文件的读写的方法.
- 这个问题我不知道会是怎么一种结果?
- 急!!!在当前屏幕输入文本
- 请问indy9哪里有下载? 我要的具体下载网址?
- 关于IdTCPServer中的多线程及动态创建TADOQuery的问题
- 我想在不关心DBGRID的数据源的情况下,把它里面所显示的内容整齐地写到一个文本文件里,应该怎样做?(急)
- 請教:TCanvas如何用?分不夠再加上,謝謝?
ASCII值大于127说明中文数据的ASCII我也忘 了:)
自己看看吧。================================================================
◆◆◆ CSDN查询助手,查询方便快捷 ◆◆◆ 下载地址:
http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]
世界因为你我而年轻!
☆★○●◎◇◆□■△▲※
2)if (Pos('0',s)>0) or (Pos('1',s)>0) or (Pos('2',s)>0) or
... Pos('8',s)Pos('9',s) then 有数字
var
sw:widestring;
s:string;
cs:string;
c:char;
i,wcount,mcount:integer;
begin
sw:=edit1.Text;
cs:=edit1.Text;
wcount:=0;
mcount:=0;
for i:=1 to length(sw) do
begin
s:=sw[i];
c:=cs[i];
if length(s)>1 then inc(wcount);
if c in ['0'..'9'] then inc(mcount);
end;
edit2.Text:=inttostr(wcount);//中文字符数
edit3.Text:=inttostr(mcount);//数字字符数
end;