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

markieren

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:
if (zahl=350)or(zahl=351)or(zahl=352)or... oder gibt es da eine schönere Lösung?

Danke schon einmal

Wie wärs mit:

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

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

Statt

markieren

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:

markieren

Delphi-Quellcode:

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

MfG
Binärbaum

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)

markieren

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:

markieren

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:
 if (X>=0)and(X<=400)and(Y>=0)an(Y<=400) then ...

Zitat von ThorZten:

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

markieren

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.

Alles klar, Dank an alle.