Delphi集合的用法
参考:http://www.cnblogs.com/doit8791/archive/2012/08/17/2644859.html
集合是Pascal特有的数据类型,在Visual Basic、C/C++都没有(虽然C++ Builder提供了一种模板类成为集合,它模仿了Pascal集合的行为)。集合用一种有效的手段来表示一组有序数、字符和枚举值。声明一个集合用用关键字 set of,并在其后面跟上有序类型或一个集合可能值得所有有限子集。示例如下
type
TCharSet = set of char; //可能的值是 #0至#255
TEnum = (Monday, Tuesday, Wednesday, Thursday, Friday);
TEnumSet = set of TEnum; //包含了TEnum值得任何组合
TSubrangeset = set of 1..10; //可能的值:1~10
TAlphaSet = set of 'A'..'Z'; //可能的值:'A'、'B'...'Z'
注意,一个集合最多只能有255个元素。另外,只有有序的类型才能跟关键字set of ,因此下面的代码是非法的
type
TIntSet = set of Integer; //非法,太多的元素
TStrSet = set of String; //非法,不是有序的类型
集合在内部以位的形式存储它的元素,这使得在速度和内存利用上都更有效。集合如果少于32个元素,它就存储在 CPU 的寄存器中,这样的效率就更高了,为了用集合类型得到更高的效率。记住,集合的基本类型的元素数目要小于32。
一、使用集合
当使用集合的元素的时候,使用方括号。下面代码表明如何使用集合类型的变量并给它赋值
1.直接在所在过程中var中定义
var
SubrangeSet : set of 1..10; //可能是1到10的任意数
begin
SunrangeSet := [1,2,4..6];
end;
2.在type中定义
type
TcharSet = set of char;
var
CharSet : TCharSet;
begin
CharSet :=['A'..'J','a','m'];
end;
二、集合的值
1.集合的值放在一对方括号里,中间各元素使用逗号隔开。如:[1,2,5]和['a', 'e', 'i']都是集合
2.在集合中可以没有任何元素,这样的集合称为空集。[]空集
3.在集合中,如果元素的值是连续的,则可用子届型的表示法表示。例如:[1,2,3,4,5,6,10,15] 可以表示成[1..5,10,15]
4.集合的值与方括号内元素出现的次序无关。例如[1,5,8]和[1,8,5]的值相等
5.在集合中同一个元素的重复出现对集合的值没有影响。例如[1,8,5,1,8]与[1,5,8]的值相等
6.每个元素可用基类型所允许的表达式来表达。如[1,1+1,4]、[succ(ch)]
三、集合的运算
集合类型变量不能进行算术运算,因为集合是无序的,不能使用ord、pred、succ等函数
1.赋值运算
只能通过赋值语句给集合变量赋值,不能通过读语句赋值,也不能通过写语句直接输出集合变量的值。如:
集合变量赋值:c:=['2']; i:=[5]; w:=[];
集合变量赋子界值:c:=['a'..'z']; i:=[1..7];
集合变量赋枚举值:c:=['a','b','d','m'm]; i:=[1,2,4,5];
2.集合的并、交、差运算
可以对集合进行并(+)、交(*)、差(-)三种运算,每种运算只有一个运算符、两个运算对象,结果仍然为集合。之一它们与算术运算的区别
1)并运算(关系代数运算符∪)
A、B为两个集合,由集合A中的元素加上B中的与A不重复的所有元素组成的集合,成为集合A和B的并。即A+B,如
[X,Y,Z]+[X] 为 [X,Y,Z] { 两个集合中不重复的所有元素 }
[1]+[4] 为[1,4]
用+、-运算符或者Include()和Exclude()过程,能对一个集合变量增删元素:
Include(CharSet, 'a'); //在集合中增加元素'a'
CharSet := CharSet+['b']; //在集合中增加元素'b'
Exclude(CharSet, 'x'); //在集合中删除元素'x'
CharSet := CharSet-['y', 'z']; //在集合中删除元素'y', 'z'
提示:尽可能地用Include()和Exclude()来增删元素,尽可能少用+、-运算符。因为Include()和Exclude()仅需要一条机器指令,而+和-需要13+6n(n是集合的按位的长度)条机器指令
2) 交运算 (关系代数运算符∩)
A、B为两个集合,由既属于集合A又属于集合B中的所有元素组成的集合,称为集合A和B的交。也就是A*B,如:
[X,Y,Z]*[X] 为 [X] { 两个集合中的相同元素 }
[X,Y,Z]* 为 []
3)差运算(关系代数运算符-)
A、B为两个集合,由集合A中的元素除去集合B中与A相同的元素组成的元素,称为集合A和B的差,即A-B,如
[X,Y,Z]-[X] 为 [Y,Z ] { 在集合A中又不在集合B中的所有元素 }
[X,Y,Z]- 为 [X,Y,Z]
3.集合的关系运算:运算结果是布尔值
关系运算符:
=相等
<>不相等
>=包含,表示前者包含后者
<=包含于,表示前者包含于后者
例如:[a,b,c]=[b,c,a] 为true,元素个数相同,内容相同,不管排列顺序如何。 [a,b,c]>=[a] 为true;[a,b]<=[a,b,c] 为true。
in运算:in的右边为集合,左边为与集合基类型相同的表达式,为布尔型。in测试的是一个元素是否在集合中。相当于集合论中的∈。它们都是二目运算,且前4个运算符的运算对象都是相容的集合类型。例如:a in[b,c] 为false。
CharSet中是否有字母'S':
if 'S' in CharSet then
/ /继续运行
下面的代码判断在EnumSet中是否没有Monday :
if not (Monday in EnumSet) then
/ /继续运行
设集合a:=[1..10]; x 为integer,如x在集合a中即删除a中的元素x,否则把元素x添加到集合a中。程序段如下: if x in a then a:=a-[x] else a:=a+[x]
集合没有的直接运算:集合中元素的个数以及打印输出集合中每个元素。
Delphi集合的用法的更多相关文章
- delphi 集合的用法
http://blog.sina.com.cn/s/blog_9e2e8405010180jy.html delphi基础补充 1 开域语句 在面向对象的程序代码中,嵌套对象的现象十分 ...
- (转载)Delphi TStringList的用法
Delphi TStringList的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. TStringList 常用方法与属性: var List: TStringL ...
- Delphi TStringList的用法
Delphi TStringList的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. TStringList 常用方法与属性: var List: TStringL ...
- delphi FillChar的用法(转)
delphi FillChar的用法(转) (2012-12-24 15:12:06) 转载▼ 标签: it 分类: delphi7 FillChar的用法(delphi) Fillchar是Turb ...
- Delphi Inputbox,InputQuery用法
Delphi :InputQuery,InputBox用法及区别 function InputQuery(const ACaption, APrompt: string; var Value: str ...
- Delphi XE4 TStringHelper用法详解
原文地址:Delphi XE4 TStringHelper用法详解作者:天下为公 Delphi XE4的TStringHelper,对操作字符串进一步带来更多的方法,估计XE5还能继续用到. Syst ...
- Delphi常用关键字用法详解
本文详细介绍了Delphi中常用的各个关键字名称及用法,供大家在编程过程中借鉴参考之用.详情如下: absolute: ? 1 2 3 4 5 6 7 8 9 10 //它使得你能够创建一个新变量, ...
- Delphi中Messagedlg用法
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrY ...
- 关于comparable与comparator的用法(即自定义集合框架用法 )
package javastudy; import java.util.Comparator; import java.util.Iterator; import java.util.TreeSet; ...
随机推荐
- BZOJ 2448: 挖油
Description [0,x]中全是1,其余全是0,每个点有一个权值,求最坏情况下得到x的最小权值. Sol DP+单调队列. 首先就是一个 \(O(n^3)\) 的DP. \(f[i][j]\) ...
- Java计算程序运行时间
public static void main(String[] args) { // TODO Auto-generated method stub long nd = 1000 * 24 * 60 ...
- ndk学习10: linux文件系统
画了一天的思维导图,好累啊 一.概述 二.文件IO 三.缓冲区输入输出 四.高级IO 五.文件和目录 来自为知笔记(Wiz)
- Linux中增加软路由的两种方法/删除的方法
第一种: route add -net 172.16.6.0 netmask 255.255.255.0 gw 172.16.2.254 dev eth0 route del gw 172.1 ...
- 【Java】嵌套For循环性能优化案例
参考资料:http://cgs1999.iteye.com/blog/1596671 1 案例描述 某日,在JavaEye上看到一道面试题,题目是这样的:请对以下的代码进行优化 for (int i ...
- ASP.NET 上的 Async/Await 简介
原文链接 大多数有关 async/await 的在线资源假定您正在开发客户端应用程序,但在服务器上有 async 的位置吗?可以非常肯定地回答“有”.本文是对 ASP.NET 上异步请求的概念性概述, ...
- 50道java算法题(一)
[程序1] 题目:古典问题:有一对兔子,从出生后第3个月起每个月都生一对兔子,小兔子长到第三个月后每个月又生一对兔子,假如兔子都不死,问每个月的兔子总数为多少? 1.程序分析: 兔子的规律为数列1 ...
- 日历插件My97DatePicker的使用
在开发过程中,我们会经常遇到让用户输入日期的表单,这类表单处理起来也不是太繁琐,就是简单的字符串和日期之间的转换.但是,如果用户不按照已设定的日期格式进行输入,必定会造成不必要的麻烦.为了更好的处理这 ...
- Match:Seek the Name, Seek the Fame(POJ 2752)
追名逐利 题目大意:给定一个字符串S,要你找到S的所有前缀后缀数组 还是Kmp的Next数组的简单应用,但是这一题有一个BUG,那就是必须输出字符串的长度(不输出就WA),然而事实上对于abcbab, ...
- 谷歌 Uncaught SecurityError: Failed to execute 'replaceState' on 'History 错误
今天在用sui mobil做一个内联页面的时候遇到了这个问题. 然而这个问题只出现在chrome浏览器中,在火狐中没有一点问题. 他说明的是一个安全问题,chrome中有了新的安全机制