Delphi的set集合操作

好久没用Delphi的集合操作了，差点忘记了，今天要用到标志集合的判断操作，顺便整理一下：

 

1.定义一个集合
  TMyFlag = (TMyFlagStart,TMyFlagStop);
  TMyFlags = set of TMyFlag;

 

然后就可以定义一个集合变量:
var
  MyFlags: TMyFlags;
 
2.添加一个集合元素
  Include(MyFlags, TMyFlagStart);

 

3.删除一个集合元素
  Exclude(MyFlags, TMyFlagStart);

 

4.检测元素是否属于集合
if TMyFlagStop in MyFlags then
  Exclude(MyFlags, TMyFlagStop);