Delphi学习日志(一)--集合

初学delphi。

集合是Pascal特有的数据类型，在VB,C,C++中都没有，用来表示一组有序、字符、枚举值。声明方式：set of 

type
TCharSet=set of char; // 可能的值：# 0 - # 2 5 5
Tenum = (Monday, Tuesday, Wednesday, Thursdat, Friday, Saturday, Sunday);
TEnumSet=set of TEnum; // 包含了Tenum值的任何组合
TSubrangeSet=set of 1..10; // 可能的值：1 - 1 0
TAlphaSet=Set of 'A'..'z'; // 可能的值：'A' - 'z'
注意，一个集合最多只能有2 5 5个元素。另外，只有有序的类型才能跟关键字set of，因此下列的
代码是非法的：
type
TIntSet=set of Integer; // 非法：太多的元素
TStrSet=set of string; // 非法：不是有序的类型
集合在内部以位的形式存储它的元素，这使得在速度和内存利用上更有效。集合如果少于3 2个元
素，它就存储在C P U的寄存器中，这样效率就更高了，为了用集合类型得到更高的效率。记住，集合
的基本类型的元素数目要小于3 2。
1. 使用集合
当使用集合的元素时，使用方括号。下面代码表明如何使用集合类型的变量并给它赋值。

type 

　　TcharSet = set of char;

　　Tenum = (Monday, Tuesday, Wednesday, Thursdat, Friday, Saturday, Sunday);

　　TEnumSet = set of TEnum;

var

　　CharSet: TCharSet;

　　EnumSet: TEnumSet;

　　SubrangeSet: set of 1..10;

　　AlphaSet：set of 'A'..'Z';

begin

　　CharSet  := ['A'..'J','a','m'];

　　EnumSet := [Saturday, Sunday];

　　SubrangerSet := [1,2,3,6];

　　AlphaSet :=[];

end;

2. 集合操作符
Object Pascal提供了几个用于集合的运算符，用这些运算符可以判断集合和集合之间的关系，对
集合增删元素，对集合进行求交集运算。
(1) 关系运算
用 in 运算符来判断一个给定的元素是否在一个集合中，下面的代码判断在前面所定义的集合
Charset中是否有字母‘S’:
if 'S' in CharSet then
/ /继续运行

下面的代码判断在EnumSet中是否没有Monday:
if not (Monday in EnumSet) then
/ /继续运行

(2) 增删元素
用+、-运算符或Include( )和Exclude( )过程，能对一个集合变量增删元素:
Include(CharSet, 'a'); / /在集合中增加' a ' ;
CharSet: = CahrSet + ['b'] ; / /在集合中增加' b ' ;
Exclude(CharSet, 'x'); / /在集合中删除' x ' ;
CharSet:=CharSet-['y', 'z']; / /在集合中删除' y '和' z ' ;

提示尽可能地用Include()和Exclude()来增删元素，尽可能地少用+、-运算符。因为Include()和
Exclude()仅需要一条机器指令，而 + 和 - 需要13+6n(n是集合的按位的长度)条机器指令。
(3) 交集
用*运算符来计算两个集合的交集，表达式Set 1 * Set 2的结果是产生的集合的元素在Set 1和Set 2集合
中都存在，下面的例子用来判断在一个给定的集合中是否有某几个元素：
if {'a', 'b', 'c'}*CharSet={'a', 'b', 'c'} then
/ /继续程序

 

转载于:https://www.cnblogs.com/selyco/archive/2013/06/02/3113926.html