集合类型

集合是由多个具有相同类型的元素所组成的，集合中的元素是某种数据类型的值。这些数据类成为集合的基类型。

集合在内部以位的形式存储它的元素，这使得在速度和内存利用上都更有效。集合如果少于32个元素，它就存储在 CPU 的寄存器中，这样的效率就更高了，为了用集合类型得到更高的效率。记住，集合的基本类型的元素数目要小于32。

集合中的元素是无序的，且集合中的元素不能够出现重复，有重复元素只作为一个元素。

一个集合最多可有256个元素，即集合类型的基类型的取值范围为0~255，因此声明的集合类型不能是整型，实型以及其他构造类型。

集合的基类型可以设置为字符型，布尔型，枚举型以及子界型和顺序类型。

Type下声明集合：

type
  集合类型名称 = Set of 基类型；

type
    TCharSet = set of char;    //字符型
    TEnum = (Monday, Tuesday, Wednesday, Thursday, Friday);//枚举型
4     TEnumSet = set of TEnum;    //包含了TEnum值得任何组合
    TSubrangeset = set of 1..10;    //子界型
    TAlphaSet = set of 'A'..'Z';   

1 type
2   Language = set of (English,German,France);//枚举
3   char1 = set of char; //字符
4   number1 = set of 1..9; //子界

　注意，一个集合最多只能有255个元素。另外，只有有序的类型才能跟关键字set of ，因此下面的代码是非法的

type
    TIntSet = set of Integer;    //非法，太多的元素
    TStrSet = set of String;     //非法，不是有序的类型

 

过程中使用集合：

procedure TForm1.Button5Click(Sender: TObject);
var
  ch : char1;
  num : number1;
begin
  ch := ['a'..'z'];
  //exclude(ch,'c');//移除一个集合元素
  include(ch,'c');//添加一个集合元素
  //num := [10];
  include(num,10);
  if 10 in num then
    showmessage('成功');
  if 'c' in ch then
    showmessage('包含');
end;

当使用集合的元素的时候，使用方括号。下面代码表明如何使用集合类型的变量并给它赋值
1.在type中定义并赋值

type
    TcharSet = set of char;
var
    CharSet : TCharSet;
begin
    CharSet :=['A'..'J','a','m'];
end;
2.在过程var中定义并赋值
var
    SubrangeSet : set of 1..10;    //可能是1到10的任意数
begin
    SunrangeSet := [1,2,4..6];
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]的值相等

集合的应用实例：

type
  Language = set of (English,German,France);//枚举　　

procedure TForm1.Change(Sender: TObject);
begin
  if checkbox4.Checked then
  begin
    L := L + [English];
  end
  else
  begin
    L := L - [English];
  end;
  if checkbox5.Checked then
  begin
    L := L + [German];
  end
  else
  begin
    L := L - [German];
  end;
  if checkbox6.Checked then
  begin
    L := L + [France];
  end
  else
  begin
    L := L - [France];
  end;
  if English in L then
    checkbox1.Checked := true
  else
    checkbox1.Checked := false;
  if German in L then
    checkbox2.Checked := true
  else
    checkbox2.Checked := false;
  if France in L then
    checkbox3.Checked := true
  else
    checkbox3.Checked := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  checkbox4.OnClick := change;
  checkbox5.onclick := change;
  checkbox6.OnClick := change;
end;