mit case bei mehreren Werten mehrere Anweisungen ausführen

[Hawkeye219]

Ok, ist das besser?

Delphi-Quellcode:

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

Gruß Hawkeye