Delphi-Quellcode:
case ZaehlerNeu - ZaehlerAlt
of
1..3 : PreisJeWoche := 210;
4..MaxInt : PreisJeWoche := 0.06;
else PreisJeWoche := 0;
// oder irgendwie anders, bzw. eine Exception werfen
end;
so oder so ... der Wert sollte besser nicht undefiniert sein