Delphi-Quellcode:
if iTyp in [3,5,6] then begin
end;
case iTyp of
3,5,6: begin
end;
end;
edit: etwas langsam... würd trotzdem case benutzen, scheint mir etwas optimaler als Zahlen erst in ein set zu verwandeln (das zudem auf byte-Größe beschränkt ist... da muss man aufpassen, wenn man ganze Bereiche definiert, etwa "in [1..1000]"
).