Problem: While Schleife

[Progman]

die IN-Variante geht nur mit Sets, da dürfen a, b, c nur ordinale Typen (Byte, Char) sein, aber keine Integer oder Strings.
Ne Variante wäre:

Delphi-Quellcode:

case a of
  b, c, d: Machwas
 else machnix
end

hier können auch Integer genommen werden.