对Memo内容统计出字符出现的次数?

aa20000 2013-06-12 02:26:27
Memo1为可输入对象,如何对Mome1的内如以"逗号"统计出对象出现的次数?

例如:
01,03,05,01,06,08,06,12

统计出结果如下形式:
================================
01出现了2次;06出现了2次;
03出现了1次;
05出现了1次;
08出现了1次;
12出现了1次
...
...全文
112 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
aa20000 2013-06-15
  • 打赏
  • 举报
回复
很好!请问一下统计出来的结果能否横向显示呢?
引用 4 楼 月光 的回复:
var tmpList,sumList : TStringList; I,tmpInd : Integer; begin tmpList := TStringList.Create; sumList := TStringList.Create; tmpList.Clear; tmpList.CommaText := '01,03,05,01,06,08,06,12'; for I := 0 to tmpList.Count - 1 do begin tmpInd := sumList.IndexOfName(tmpList[I]); if tmpInd = -1 then begin sumList.Add(tmpList[I] + '=1'); end else begin sumList.Values[tmpList[I]] := inttostr(strtoint(sumList.Values[tmpList[I]]) + 1); end; memo2.Text := sumList.Text; end; end;
月光 2013-06-15
  • 打赏
  • 举报
回复
var tmpList,sumList : TStringList; I,tmpInd : Integer; begin tmpList := TStringList.Create; sumList := TStringList.Create; tmpList.Clear; tmpList.CommaText := '01,03,05,01,06,08,06,12'; for I := 0 to tmpList.Count - 1 do begin tmpInd := sumList.IndexOfName(tmpList[I]); if tmpInd = -1 then begin sumList.Add(tmpList[I] + '=1'); end else begin sumList.Values[tmpList[I]] := inttostr(strtoint(sumList.Values[tmpList[I]]) + 1); end; memo2.Text := sumList.Text; end; end;
aa20000 2013-06-12
  • 打赏
  • 举报
回复
执行代码后,没有获得希望得到的结果。 请问能否把Mome1.text内容统计结果输出到Mome2去??
酣酣 2013-06-12
  • 打赏
  • 举报
回复
输出SumList就行了!
酣酣 2013-06-12
  • 打赏
  • 举报
回复

var
  tmpList,sumList : TStringList;
  I,tmpInd : Integer;
begin
  tmpList := TStringList.Create;
  sumList := TStringList.Create;
  tmpList.Clear;
  tmpList.CommaText := '01,03,05,01,06,08,06,12';
  for I := 0 to tmpList.Count - 1 do begin
    tmpInd := sumList.IndexOfName(tmpList[I]);
    if tmpInd  = -1 then begin
      sumList.Add(tmpList[I] + '=1');
    end else begin
      sumList.Values[tmpList[I]] := sumList.Values[tmpList[I]] + 1;
    end;
  end;
MIP2000XP是什么? (1)MIP2000XP是一套数据库软件 (2)MIP2000XP是一套“傻瓜型”MIS开发工具 (3)MIP2000XP是一套开放的数据库管理平台 (4)MIP2000XP是一套面向最终用户的管理信息系统解决方案 MIP2000XP是一套运行在Win9X/ME/NT/2K/XP上的通用数据库管理平台,她以数据为处理中心,实现在统一平台下对关系型数据库的数据进行全面管理。面向管理人员设计、无须编程的特点,是中小企事业单位信息化建设的一个理想工具。 MIP2000XP特点: “傻瓜”性 面向业务人员,无须学习复杂的程序设计语言,无须关心程序设计细节,无需要专业的编程知识,只需仔细分析需求,以简单的定义即可快速生成满足用户自己需要的管理信息系统。 多平台 系统可以运行在流行的多种操作系统平台上,如Windows 9X/NT/ME/2000/XP等。 开放性 系统对数据库管理系统具有彻底的开放性,即不再针对某个特定的数据库,不是基于某个特定的数据库开发的,而是满足各种用户使用各种数据库的需求。可与已有的管理系统进行集成,来解决信息系统建设面临的“信息孤岛”问题。 实用性 系统围绕数据处理为核心,实现了如录入、删除、复制、移动、查询、定位、替换、排序、统计、汇总、查重、输、打印报表、修改更新等数据库管理功能,最大限度地满足用户对数据处理的各种要求。 安全性 系统提供良好的安全可靠性策略,提供的用户管理、数据窗体的使用授权,以及记录级和字段级数据使用授权机制,保证数据的共享及安全。 灵活性 (1)数据字典:系统提高了一个开放的数据字典,用户可根据需求对数据字典的字段内容定义,实现对数据窗体数据的约束。 (2)动态数据报表:用户可自定义多种格式的数据报表进行打印预览和打印输。 (3)Word、Excel模板:系统提供的与Word和Excel模板的访问接口,实现用户处理特殊报表和格式文件的需求,如公文、发票、信封等特殊输格式的套打。 易用性 系统具有简单、直观、方便的用户界面,给管理者、一般工作人员提供了一个易学、易懂、易用的系统。图形界面和多文挡的MDI窗口,对用户更友好。 -------------------------------------------------------------------------------- MIP2000XP主要功能: 人性化的录入界面设计:功能强大的数据窗体设计功能可以设计人性化的数据窗体录入界面。 丰富的字段类型:支持包括自动、字符、整数、实数、日期、逻辑、货币、文本(Memo)、图像和OLE等多种类型字段。 强大的数据管理:数据窗体包括对数据库主要操作有添加、更新、删除、导入、导、复制、定位、替换、移动、查询、报表、统计和打印等等。 多级用户及权限管理:提供了三级用户管理机制,即系统用户、普通用户和共享用户。根据需要,系统可实现对数据窗体使用(允许访问、允许读、允许写)权限的动态分配。用户对记录的授权访问可定义到用户或用户组。 万能的数据查询:根据用户定义的检索条件(单条件和复合条件),实现精确、模糊、包含、非包含等多种查询。 动态的数据统计:动态数据统计功能,统计范围可以是求最大值、最小值、求和、平均值和计数,能对分类字段进行汇总统计,汇总的结果以直方图、饼图 、点、快速线、和甘特图等11种显示风格表现来,同时支持对图形的打印输。 灵活的报表打印:动态数据报表。支持自定义的数据窗体的打印和打印预览,实现对数据表格打印字段的定义,并支持多种风格的报表输。 方便的Word和Excel接口:提供与Word和Excel的访问接口,通过Word模板和Excel模板定义,来生成一些指定的报表格式文件。实现如公文、发票、信封等格式文件的套打功能。 强大的数据导:支持数据到Word、Excel、文本、表格文本、.DBF、HTML等多种形式的数据格式文件转换。 完善的系统日志:记录用户对系统的一些主要操作,如登录和退系统的时间,建立和删除数据窗体,更改口令,定义数据字典等主要操作。 友好的在线用户显示:显示系统中当前在线用户和离线的用户情况,显示内容包括在线用户名称,登录机器的用户名,登录时间,登录次数, 离线的用户以及最后一次访问系统的时间等信息。 实用的数据查重:从数据表(单个或两个)中找重复的数据记录。 灵活的数据转换:实现不同关系型数据库间数据表的移植和数据表之间的数据转换。 快速的数据到Web发布:将数据表内容生成HTML文件或将生成到特定的Web模板中。 个性化定义:用户可以在管理平台上设置自己喜欢的显示风格。设置的内容包括窗体分类、启动界面、登录风格、系统风格、系统背景等信息。 灵活方便的数据字典:开放的数据字典,体现系统的灵活性。用户可根据需求对数据字典的内容定义,实现对数据窗体数据的约束。可定义的内容包括字段的中文解释、能否为空、是否是唯一值、自动赋值、字段取值范围设置等进行设置。 详细内容请访问:www.mip200xp.net
数据库设计报告 "文件状态: "文件标识 " " "[ ] 草稿 ": " " "[ ] 正式发布 " " " "[ ] 正在修改 " " " " "当前版本 "1.0 " " ": " " " "作 者 " " " ": " " " "完成日期 " " " ": " " 版 本 历 史 "版本/状态 "作者 "参与者 "起止日期 "备注 " "V1.0 " " " " " " " " " " " " " " " " " " " " " " " 目 录 0. 文档介绍 4 0.1 文档目的 4 0.2 文档范围 4 0.3 读者对象 4 0.4 参考文献 4 0.5 术语与缩写解释 4 1. 数据库环境说明 5 2. 数据库的命名规则 5 3. 物理设计 5 3.1 管理员用户表 5 3.2管理员登录记录表。 5 3.2公告表 6 3.3公告分类表 6 3.5 厂商表 6 3.6厂商用户表 7 3.7厂商用户登录记录表 7 3.8 厂商经销商表 7 3.9经销类型表 8 3.10厂商商品表 8 3.11商品分类表 9 3.12商品规格表 9 3.13商品平台表 9 3.14二维码表 9 3.15二维码扫描记录表 10 3.16二维码动作记录表 10 3.17 网站用户表 10 3.18 网站用户登录记录表 11 3.19 网站用户收藏表 11 3.20 商品物流链表 11 3.21 网站基础配置表 12 0. 文档介绍 0.1 文档目的 开发人员编写。 0.2 文档范围 所用到的数据库。 0.3 读者对象 开发人员 0.4 参考文献 无 0.5 术语与缩写解释 "缩写、术语 "解 释 " " " " " " " " " " " " " " " " 1. 数据库环境说明 (1)数据库系统:SQLSERVER2005。 2. 数据库的命名规则 参考《SQL编程规范方案书》。 3. 物理设计 3.1 管理员用户表 "表名 "sys_Admin " "列名 "备注 "数据类型"空/非"约束条件 " " " " "空 " " "AdminID "管理员编号 "int "N "自增 " "Account "账号 "varchar("N " " " " "50) " " " "Password "密码 "VarChar("N " " " " "100) " " " "IsLock "是否启用0启用1锁 "Int "N " " " "定 " " " " "Remark "备注 "varchar("N " " " " "200) " " " "ReaName "真实姓名 "varchar("N " " " " "50) " " " "Phone "联系电话 "varchar("N " " " " "50) " " " "QQ "QQ号码 "varchar("N " " " " "50) " " " "Email "管理员邮箱 "varchar("N " " " " "50) " " " "LastLoginTi"最后登录时间 "datetime"N " " "me " " " " " "LastLoginIP"最后登录ip "Varchar("N " " " " "50) " " " "RegTime "注册时间 "datetime"N " " "LoginNum "登录次数 "int "N " " "AdminIMG "管理员头像 "varchar("N "0 " " " "200) " " " "补充说明 " " 3.2管理员登录记录表。 "表名 "sys_AdminLoginLog " "列名 "备注 "数据类型"空/非"约束条件 " " " " "空 " " "ID "自增ID "int "N " " "AdminID "管理员编号 "int "N " " "Account "账号 "varchar("N " " " " "50) " " " "Password "输入的密码 "VarChar("N " " " " "500) " " " "LoginInTime"登录时间 "datetime"N " " "LoginIP "登录IP "varchar("N " " " " "50) " " " "Memo "备注 "varchar("N " " " " "500) " " " "补充说明 " " 3.2公告表 "表名 "sys_Article " "列名 "备注 "数据类型 "空/非"约束条件 " " " " "空 " " "ArticleID "文章编号 "int "N "自增 " "CateID "分类id "int "N " " " "nc_article_cate" " " " "Url "跳转链接 "varchar(1"N

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧