Konstantenausdruck verletzt untere Grenzen

[Alex_ITA01]

Hallo zusammen,
kann mir einer erklären, warum folgender Code nicht geht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  tmpInt : Integer;
begin
  tmpInt := -1;
  if tmpInt in [-1..2] then
    ShowMessage('1');
end;

Dieser aber geht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  tmpInt : Integer;
begin
  tmpInt := -1;
  if tmpInt in [0..2] then
    ShowMessage('1');
end;

Ein Integer kann ja schließlich negativ sein...
Vielleicht habe ich aber auch ein Denkfehler?!

Beim oberen Code kommt die besagte Fehlermeldung, weil ich in eckigen Klammern eine -1 übergebe.

Gruß
Alex

[DeddyH]

Mengen (Sets) liegen immer im Bereich Byte, daher geht der gültige Wertebereich von 0 bis 255.

[Alex_ITA01]

Alles klar, dass wusste ich nicht.

Was wäre denn die "gängige" Variante um einen Integer auf einen Bereich abzufragen?

Gruß
Alex

[Uwe Raabe]

Zitat:

Zitat von Alex_ITA01 (Beitrag 1173520)

Was wäre denn die "gängige" Variante um einen Integer auf einen Bereich abzufragen?

InRange

[himitsu]

Delphi-Quellcode:

if (i >= i_min) and (i <= i_max) then xyz;

case i of i_min..i_max: xyz end;  // :stupid:

oder das genannte InRange :angle2:

[Alex_ITA01]

Danke schön. InRange kann ich auch nicht :-)

[DeddyH]

Was gibt es denn da zu können? Ist doch eine ganz normale Funktion :gruebel:

[himitsu]

Vermutlich die Abkürzung für "kannte" :angle:
(würde ich einfach mal aus dem :-) schließen)

[DeddyH]

OK, macht Sinn. Trotzdem eine sehr merkwürdige Abkürzung.

[Iwo Asnet]

Wieso merkwürd? :stupid:
In Berlin wird das als 'Kannteckneesch' (Mario Barth), bzw. 'kantegneh' aggregiert.