Variablen-Abfrage in Integerbereich

[ThorZten]

Guten Abend!
Habe folgendes Problem:
Ich möchte eine Integer-Abfrage machen die wie folgt aussieht:

Delphi-Quellcode:

var zahl:Integer;

...
//zahl wird mehrfach modifiziert
if zahl in [0..50] then ...
if zahl in [350..400] then ...

Die erste Abfrage bereitet keine Probleme, bei der zweiten meckert aber Delphi mit "Constant expression violates subrange bounds", also sprenge ich die Grenzen mit dieser Abfrage.

Meine Frage: wie umschiffe ich dieses Problem?
Muss ich wirklich jede Zahl so umständlich abfragen:

Delphi-Quellcode:

if (zahl=350)or(zahl=351)or(zahl=352)or...

oder gibt es da eine schönere Lösung?

Danke schon einmal

[jim_raynor]

Wie wärs mit:

Delphi-Quellcode:

if (zahl>=350) and (Zahl<=400) then

[ThorZten]

Okay, die Antwort war jetzt fies! ;-)
So einfach kann es manchmal sein... Danke

Gibt es noch eine andere Lösung, die mein Gesuch mit einer komplizierter aussehenden Lösung belohnt?
Kann man evt. einen Zahlenbereich definieren, den man mit der Variable abgleichen kann oder so?

Ansonsten reicht das schon auch.
Danke

[Binärbaum]

Statt

Delphi-Quellcode:

var zahl:Integer;

...
//zahl wird mehrfach modifiziert
if zahl in [0..50] then ...
if zahl in [350..400] then ...

kann man das mit case lösen:

Delphi-Quellcode:

var zahl:Integer;
...
case zahl of
 0..50:    ...
 350..450: ...
 //usw.
end;

MfG
Binärbaum

[ThorZten]

Das habe ich auch schon überlegt, aber da stoße ich mit folgender Überlegung an die Grenzen, nämlich, wenn ich zwei Variablen abfragen möchte: (Koordinaten zB)

Delphi-Quellcode:

var X,Y: integer;

if (X in [0..10]) and (Y[0..10]) then ...

Da müsste dann wohl eine doppelt-verschachtelte Abfrage her. So was wie:

Delphi-Quellcode:

case X of
 0..10: if Y in[0..10] then ...
end;

Mit höheren Werten müsste ich dann wie oben vorgeschlagen wie folgt abfragen:

Delphi-Quellcode:

 if (X>=0)and(X<=400)and(Y>=0)an(Y<=400) then ...

[Sprint]

Zitat:

Zitat von ThorZten

Da müsste dann wohl eine doppelt-verschachtelte Abfrage her.

Delphi-Quellcode:

  case X of
    0..10:
      case Y of
        0..10: ShowMessage('X und Y haben den richtigen Wert');
      end;
  end;

Wie du siehst, gibt es verschiedene Möglichkeiten den Wertebereich zu überprüfen. Entscheide dich für den, den du am besten Lesen kannst.

[ThorZten]

Alles klar, Dank an alle.