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 von Alex_ITA01:

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

[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

[himitsu]

Vermutlich die Abkürzung für "kannte"
(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?
In Berlin wird das als 'Kannteckneesch' (Mario Barth), bzw. 'kantegneh' aggregiert.