【图】C++Builder中集合的处理

　　首先看一看窗口的MouseDown事件的声明

　　void __fastcall TForm1::FormMouseDown(TObject *Sender,TMouseButton Button,TShiftState Shift,int X,int Y)

　　其中的Shift参数被说明为TShiftState类型：

　　enum Classes_1{ssShift,ssAlt,ssCtrl,ssRight,ssMiddle,ssDouble};

　　typedef SetClasses_1,ssShift,ssDoubleTShiftSTate;

　　TShiftSTate是一个集合(Set)，也就是说，TShiftState是Sysdefs.h中Set模板类的

　　一个实例。如果想要知道某个元素是不是集合中的一个成员，可以使用Contains方法：

　　ShiftKey-Checked=Shift.Contains(ssShift);

　　ControlKey-Checked=Shift.Contains(ssCtrl);

　　LeftButton-Checked=Shift.Contains(ssLeft);

　　RightButton-Checked=Shift.Contains(ssRight);

　　这段代码询问元素ssRight是不是属于Shift集合。如果是的话，那么代码就设置为TCheckBox

　　组件的状态。

　　下面是在运行状态下说明一个集合的方法：

　　TShiftState LeftShift;

　　LeftShiftssLeftssShift;

　　对于上面这个集合，如果询问集合中是否包含ssLeft或ssShift, 那么Contains运算符

　　将返回True值。

　　除了Contains方法外，还可以在Set类中使用下面三个运算符：

　　+　　并集

　　-　　差集

　　*　　交集

　　上面这三个运算符都返回一个集合，而Contains返回一个布尔值。

　　SETEXP程序

　　如下面程序清单所示，SETEXP程序说明了如何使用Set模板类中的关键元素。

///////////////////////////////////////
//　　File: Main.cpp
// Project: SetExp
// Creator: Copyright 1998 by Charlie Calvert
//
#include vcl.h
#pragma hdrstop
#include "Main.h"
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
　: TForm(Owner)
{
}
void TForm1::CheckState(TShiftState Shift)
{
　ShiftKey-Checked = Shift.Contains(ssShift);
　ControlKey-Checked = Shift.Contains(ssCtrl);
　LeftButton-Checked = Shift.Contains(ssLeft);
　RightButton-Checked = Shift.Contains(ssRight);
}
void __fastcall TForm1::UnionClick(TObject *Sender)
{
　AnsiString Operators[3] = {"+", "*", "-"};
　TShiftState FinalSet;
　TShiftState LeftShift;
　TShiftState LeftCtrl;
　LeftShift  ssLeft  ssShift;
　LeftCtrl  ssLeft  ssCtrl;
 
　switch (TOptType(dynamic_cast TBitBtn*(Sender)-Tag))
　{
　　case otUnion:
　　　FinalSet = LeftShift + LeftCtrl;
　　　break;
　　case otIntersection:
　　　FinalSet = LeftShift * LeftCtrl;
　　　break;
　　case otDifference:
　　　FinalSet = LeftShift - LeftCtrl;
　　　break;
　}
　CheckState(FinalSet);
　Label2-Caption = Operators[dynamic_castTBitBtn *(Sender)-Tag];
}
void __fastcall TForm1::Label4MouseDown(TObject *Sender, TMouseButton Button,
　TShiftState Shift, int X, int Y)
{
　CheckState(Shift);
}