E1012 Konstantenausdruck verletzt untere Grenzen

[BeBored]

Hallo,

ich weiß das Thema war schon einmal aber die Lösungen haben mir nicht geholfen.
Das ist mein Problem:

Delphi-Quellcode:

procedure TForm1.imgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  stat.Panels[1].Text := IntToStr(X);
  if (X in [120..290]) and (Y in [89..91]) then
      begin
        stat.Panels[1].Text := 'foo';
      end;

Es kommt die Meldung

Zitat:

E1012 Konstantenausdruck verletzt untere Grenzen

was ich nicht so ganz verstehe, da es doch nur bis 290 geht... sehe ich das irgendwie falsch?
Ich denke ja, denn eine Lösung wird es ja sicher geben, nur komme ich nicht drauf.

[jfheins]

Sets gehen nur bis 255 (Byte) - der Konstantenausdruck verletzt also die obere Grenze

Nein, es gibt keine erweiterungsmöglichkeit, du musst dir wohl eine kleine Funktion schreiben:

function isBetween(value, min, max: Integer):Boolean;

[BeBored]

Ok werde ich machen, danke dir.

[mkinzler]

Oder , da der Bereich weniger als 255 Elemente umfasst:
X-120 in [0..170])

[BeBored]

Nach dem ich noch einmal wegen between gesucht habe (nur interessehalber), bin ich hier auf eine gute Lösung von sakura gestoßen:
IsBetween
if (I >= 8) and (I <= 12) then .... Nur falls noch jemand das Problem haben sollte...

[Muetze1]

...oder einfach die Funktion InRange() benutzen...

[BeBored]

Zitat von Muetze1:

...oder einfach die Funktion InRange() benutzen...

Also InRange (VarInRange) finde ich die eleganteste Lösung, danke Muetze1.