参考: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集合的用法的更多相关文章

  1. delphi 集合的用法

    http://blog.sina.com.cn/s/blog_9e2e8405010180jy.html delphi基础补充     1 开域语句     在面向对象的程序代码中,嵌套对象的现象十分 ...

  2. (转载)Delphi TStringList的用法

    Delphi TStringList的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. TStringList 常用方法与属性: var List: TStringL ...

  3. Delphi TStringList的用法

    Delphi TStringList的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. TStringList 常用方法与属性: var List: TStringL ...

  4. delphi FillChar的用法(转)

    delphi FillChar的用法(转) (2012-12-24 15:12:06) 转载▼ 标签: it 分类: delphi7 FillChar的用法(delphi) Fillchar是Turb ...

  5. Delphi Inputbox,InputQuery用法

    Delphi :InputQuery,InputBox用法及区别 function InputQuery(const ACaption, APrompt: string; var Value: str ...

  6. Delphi XE4 TStringHelper用法详解

    原文地址:Delphi XE4 TStringHelper用法详解作者:天下为公 Delphi XE4的TStringHelper,对操作字符串进一步带来更多的方法,估计XE5还能继续用到. Syst ...

  7. Delphi常用关键字用法详解

    本文详细介绍了Delphi中常用的各个关键字名称及用法,供大家在编程过程中借鉴参考之用.详情如下: absolute: ? 1 2 3 4 5 6 7 8 9 10 //它使得你能够创建一个新变量, ...

  8. Delphi中Messagedlg用法

    if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrY ...

  9. 关于comparable与comparator的用法(即自定义集合框架用法 )

    package javastudy; import java.util.Comparator; import java.util.Iterator; import java.util.TreeSet; ...

随机推荐

  1. Linux之编译需要的文件变化时刻

  2. HDU 2861 四维dp打表

    Patti and Terri run a bar in which there are 15 stools. One day, Darrell entered the bar and found t ...

  3. 2.6---找有环链表的开头结点(CC150)

    public ListNode detectCycle(ListNode head) { ListNode fast = head; ListNode slow = head; int flag = ...

  4. hnu11187

    AC自动机+DP #include <cstdio> #include <queue> #include <cstring> using namespace std ...

  5. Oracle10g下载地址--多平台下的32位和64位

    前段时间ORACLE把10G的下载从官网拿掉了 ,许多童鞋不知道ORACLE 10g 的下载地址,这里我附上oracle 10g 下载的链接,方便大家下载.      点击链接使用迅雷即可下载.    ...

  6. Kafka集群环境搭建

    Kafka是一个分布式.可分区.可复制的消息系统.Kafka将消息以topic为单位进行归纳:Kafka发布消息的程序称为producer,也叫生产者:Kafka预订topics并消费消息的程序称为c ...

  7. Divide and conquer:Aggressive Cows(POJ 2456)

    侵略性的牛 题目大意:C头牛最大化他们的最短距离 常规题,二分法即可 #include <iostream> #include <algorithm> #include < ...

  8. 迭代器iterator

    现在接着上篇的,写一来标识vector 的元素的对象迭代器iterator: 还是通过具体代码举例: 下面我讲了一个我暑期团队的故事哦~~: #include<iostream> #inc ...

  9. 【QT】C++ GUI Qt4 学习笔记2

    Go To Cell 利用QT Desinger做好界面后加入的代码有 gotocelldialog.h #ifndef GOTOCELLDIALOG_H #define GOTOCELLDIALOG ...

  10. 【processing】小代码3

    鼠标响应: mouseX, mouseY 鼠标的坐标 ---------------------------------------------- void setup() { size(,); sm ...