好久没用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);