Mengenauswertung - Problem!

[himitsu]

Delphi-Quellcode:

if (iMenge * [cb1, cb2, cb3] = [cb1, cb2, cb3]) 
  and (iMenge * [cb5, cb6, cb7] = []) then
begin
  showmessage{usw.}
end;

// oder

if iMenge * [cb1, cb2, cb3, cb4, cb5, cb6] = [cb1, cb2, cb3] then
begin
  showmessage{usw.}
end;

// bzw. wenn die cb1 bis cb6 aufeinanderfolgend sind
// (wie man es aus dem Namen vermuten könnte)

if iMenge * [cb1..cb6] = [cb1..cb3] then
begin
  showmessage{usw.}
end;