怎么判断集合数据中是否包含多个指定的属性？

Question

比如 TState = (a, b, c, d);
TStatus = set of TState;var
 s: TStatus;怎么判断s里是否包含了a和c
用in的话，只能判断一个吧，难道要一层层的if判断？如果属性多了，写起来比较麻烦啊

Answer 1

忘记说，假设现在属性有a,b,c
用=号就不行了

Answer 2

type
  ta = (a,b,c,d);
  tb = set of ta;
var
  x1,x2: tb;
begin
  x1 := [a,b];
  x2 := [a,b,c,d];
  if x1 <= x2 then
    ShowMessage('x1 <= x2');
  if x1 >= x2 then
    ShowMessage('x1 >= x2');
  if x1 = x2 then
    ShowMessage('x1 = x2');
  if x1 <> x2 then
    ShowMessage('x1 <> x2');

Answer 3

用交集，結果是a和c,就表示存在const CompareSet=[a]+[c];var
 s: TStatus;
begin
   s:=[a]+[c]+[d];
   if s*CompareSet=CompareSet  then
     showmessage('s中包含CompareSet');
end;

Answer 4

慢了呵，TState好像是DELPHI的一个类吧，LZ用的不会有问题？

Answer 5

s:=[a]+[c]+[d];
可以這樣表示
s:=[a,c,d];