Konstantenausdruck verletzt untere Grenzen

[bernau]

Zitat:

Zitat von himitsu (Beitrag 1173523)

Delphi-Quellcode:

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;

[p80286]

das Case gefällt mir auch ganz gut, irgendwie selbstdokumentierend:

Delphi-Quellcode:

case i of
  -4..-3 : action1;
  -1.. 3 : action2;
   5..22 : action3;
 else Selfdestroy;
end;

Gruß
K-H