Alternative zu vielen Arrays ?

[sx2008]

Zitat von NamenLozer:

...Wenn schon Sets

So vielleicht:

Delphi-Quellcode:

type
  TZiffer = 1..9;
  TZiffernset = set of TZiffer;

function AnzahlErlaubterZahlen(x:TZiffernset):integer;
var i : TZiffer;
begin
  Result := 0;
  for i:=1 to 9 do
    if i in x then
      Inc(Result);
end;