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;