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]