If-Abfragen mit mehreren And-Verknüpfungen

[DelphiManiac]

Hallo,
ich habe desöfteren das Problem, dass ich so eine if-Abfrage machen muss:

Delphi-Quellcode:

...
qBytes:=GetQBytes; // Gibt die Anzahl der Bytes am Port zurück
if ((qBytes <>0) and (qbytes <> 25)...)
begin
..
end;

ich muss dann den Bezeichner sehr oft hinschreiben, ist es nicht möglich eine folgende Abfrage zu
definieren in Delphi??

Delphi-Quellcode:

if (qBytes <> 0 and <> 25 and <> ...)// Ist das irgendwie möglich?

Vielen Dank

[sirius]

Delphi-Quellcode:

if a in [2,4,6..10] then

Irgendwie so halt.

Edit: bzw. so

Delphi-Quellcode:

if not(a in [2,4,6..10]) then

[mkinzler]

Oder wenn es mehrer solcher Gruppen gibt mit case