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? :wiejetzt:
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. :cheers:

[mkinzler]

Oder , da der Bereich weniger als 255 Elemente umfasst:

Delphi-Quellcode:

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

Delphi-Quellcode:

if (I >= 8) and (I <= 12) then ....

Nur falls noch jemand das Problem haben sollte... :dp:

[Muetze1]

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

[BeBored]

Zitat:

Zitat von Muetze1

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

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