这段程序统计了英文字符个数和其他字符个数??
我想知道怎样改进它,能让它更好的统计字数,比如:数字,英文,中文,标点符号等。请个位高手指点,在这里谢谢看过帖的人!!
var
s:string;
i,e,c:integer;
begin
s:=memo1.text;
e:=0;c:=0;
for i:=1 to length(s) do
begin
if (ord(s[i])>=33)and(ord(s[i])<=126) then //当文本为英文字符时
begin
inc(e); //英文字符个数求和
edit1.text:=inttostr(e);
end
else
if (ord(s[i])>=127) then //当文本为中文字符时
begin
inc(c);
edit2.text:=inttostr(c div 2); //每个汉字占2个字节
end;
end;
end;
我想知道怎样改进它,能让它更好的统计字数,比如:数字,英文,中文,标点符号等。请个位高手指点,在这里谢谢看过帖的人!!
var
s:string;
i,e,c:integer;
begin
s:=memo1.text;
e:=0;c:=0;
for i:=1 to length(s) do
begin
if (ord(s[i])>=33)and(ord(s[i])<=126) then //当文本为英文字符时
begin
inc(e); //英文字符个数求和
edit1.text:=inttostr(e);
end
else
if (ord(s[i])>=127) then //当文本为中文字符时
begin
inc(c);
edit2.text:=inttostr(c div 2); //每个汉字占2个字节
end;
end;
end;
解决方案 »
- 工程图形
- Indyftp 怎样判断远程服务器是否存在某文件?
- Delphi 7中访问DLL,报错‘Access Violation at address 00404B50 in moudle'ElisaStar.exe'.Read of address 03BE0B08’.
- 急需DELPHI线程池代码,准备做完成端口
- 请问用webBrowser显示的网页,如何修改该网页中字体的颜色,顶者有分!
- 请教大家,如何根据以下给出的数据结构,动态生成菜单?最好能给出源码~谢谢
- 十万火急,日期比较,请高手速帮忙!!!
- 一个有关sql语句的问题??
- 有关VB调用DELPHI写的DLL问题
- 请推荐一本书!
- 请教ComboBox控件使用回车键跳到下一指定控件的方法
- ◆◆◆◆◆◆ 本人头一次见过这么多得好控件,不敢独享啊 ◆◆◆◆◆◆
谢谢!!
我刚学delphi,不是很懂,请多指教!!
S:String;
I,E,C:Integer;
begin
S:=Memo1.Text;
E:=0;
C:=0;
for I:=1 to Length(S) do
case Ord(S[I]) of
//根据字符不同进行相应处理
end;
end;
end;