Konstantenausdruck verletzt untere Grenzen

[bernau]

Zitat von himitsu:

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

Warum stupid?

Bei Sets kann man ja verschiedne Bereiche testen:

z.B.

Delphi-Quellcode:

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

Das bringt Fehler.


Folgendes nicht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   tmpInt : Integer;
begin
   tmpInt := -1;
   if case i of -1..2,4..6: ShowMessage('1'); end;
end;