Code optimieren

[Gehstock]

och nö

Delphi-Quellcode:

begin
case resistor of   **********ordinal type required
 25000..33001:pnl_normresistor.Caption := '27 KOhm';
 16500..22001:pnl_normresistor.Caption := '22 KOhm';