CASE mit Variablen???

[EDatabaseError]

und nommal

Delphi-Quellcode:

    case i of
     0..i1:                           begin
                                       tanks[tank].bar.forecolor := clblack;
                                      end;
     i1+1..i1+i1:                     begin
                                       tanks[tank].bar.forecolor := clRed;
                                      end;
     i1+i1+1..i1+i1+i1.               begin
                                       tanks[tank].bar.forecolor := clYellow;
                                      end;
     i1+i1+i1+1..i1+i1+i1+i1:         begin
                                       tanks[tank].bar.forecolor := clGreen;
                                      end;
     i1+i1+i1+i1+1..i1+i1+i1+i1+i1:   begin
                                       tanks[tank].bar.forecolor := clLime;
                                      end;
    end;

will der Compiler nicht machen da i1 keine Konstante ist. Gibt es noch eine andere möglichkeit das ganze so zu überprüfen?

Mfg
Tobi

[edit=Christian Seehase]Delphi-Tags korrgiert. Mfg, Christian Seehase[/edit]