鱼C论坛

 找回密码
 立即注册
查看: 2189|回复: 4

小弟小白一个,字符串统计的问题,很弱的一个问题,请大神们帮忙。

[复制链接]
发表于 2016-11-10 10:53:34 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 wangwf50 于 2016-11-17 14:41 编辑

自己写了一个统计edit.text中输入的文本,统计其它字母、数字、空格和其它字符个数的小程式代码如下:
var z,s,k,o,n,i:Integer;
    str:string; f:AnsiChar;
begin
    n:=Length(edtinput.Text);
    for i:= 1 to n do
    begin
         str:=Copy(Trim(edtinput.Text),i,1);
         f:=AnsiChar(pAnsiString(str));
       if  (f in ['a'..'z']) or (f in ['A'..'Z']) then z:=z+1
       else if f in ['0'..'9'] then s:=s+1
       else if f = ' ' then k:=k+1
       else o:=o+1;
    end;
        lblshow.Caption:='你输入的字符: '+inttostr(z)+'个; 数字:'+inttostr(s)+'个;'
                      +'  空格'+inttostr(k)+'个; '+'  其它字符:'+inttostr(o)+'个;';

end;

但运行时,不管输入什么,都会统计到其它字符中。比如我输入的都是数字,但也是一样统计到了其它字符中,请大神们赐教。

附件是源代码。

字符统计.zip

807.16 KB, 下载次数: 1

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2016-11-12 21:07:46 | 显示全部楼层
本帖最后由 bowk 于 2016-11-12 21:09 编辑

這行f:=AnsiChar(pAnsiString(str));拿掉
只接str看看
可以付檔案嗎??
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-11-17 14:44:41 | 显示全部楼层
我也是怀疑是变更的问题,附件已经上传,谢谢你看一下。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2016-11-19 20:31:07 | 显示全部楼层
本帖最后由 bowk 于 2016-11-19 20:39 编辑
wangwf50 发表于 2016-11-17 14:44
我也是怀疑是变更的问题,附件已经上传,谢谢你看一下。


Z:=0;
S:=0;
k:=0;
O:=0;
    n:=Length(edtinput.Text);
    for i:= 1 to n do
    begin
         str:=Copy(Trim(edtinput.Text),i,1);
          f:=AnsiChar(str[1]);

       if  (f in ['a'..'z']) or (f in ['A'..'Z']) then z:=z+1
       else if f in ['0'..'9'] then s:=s+1
       else if f = ' ' then k:=k+1
       else o:=o+1;
    end;

這樣試試
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2016-11-20 01:39:34 From FishC Mobile | 显示全部楼层
末尾\0空字符?
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-28 20:18

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表