durch verschiede Sets iterieren

[Raible]

ist ungetestet, aber ich würde das so lösen:

Code:

var
  BlubbSet: Set of TBlubb; // TBlubb = (bb1, bb2, bb3, bb4, bb5, bb6, bb7);
  bb: TBlubb;
...
case FYear of
  2016:BlubbSet := [bb1, bb2, bb3, bb4, bb5];
  2017:BlubbSet := [bb1, bb3, bb5];
else BlubbSet := [];end; // zur Sicherheit
...
for bb := Low(TBlubb) to High(TBlubb) do 
begin
  if not (bb in BlubbSet) then Continue; //überspringen wenn bb nicht im Set 

//  tu was immer Du tun musst ...
end;