mit case bei mehreren Werten mehrere Anweisungen ausführen

[Hawkeye219]

Hallo,

wie wäre es damit?

Delphi-Quellcode:

type
  TDigit = 0..9;
  TDigitSet = set of TDigit;

function Check (a, b, c: TDigit;  const aSet: TDigitSet): Boolean;
begin
  Result := ([a, b, c] * aSet = aSet);
end;

Die Anwendung:

Delphi-Quellcode:

Flag := Check(2, 2, 2, [2, 3]);  // liefert False
Flag := Check(3, 2, 2, [2, 3]);  // liefert True
Flag := Check(1, 2, 3, [2, 3]);  // liefert True

Gruß Hawkeye