Unendlich einfügen [HILFE]

[Noris]

Hallo,
ich habe mal eine Frage...

ICh würde gerne and dieser Stelle:

Delphi-Quellcode:

begin
  Verbrauch := ZaehlerNeu - ZaehlerAlt;
  case (Verbrauch) of
       1..3  : PreisJeWoche := 210;
      3..50  : PreisJeWoche := 0.06;    
  end; (* case verbrauch *)

statt der 50 ein Unendlich machen, wie müsste ich das schreiben :?:

Bitte schreibt auch noch dazu was ich evtl. noch in uses schreiben muss etc.


Mit vielen Grüßen

Noris

[DeddyH]

Irgendwie scheint die Logik nicht zu stimmen. Zeig doch einmal genau, was wann ausgeführt werden soll. IMO müsste man es so formulieren, dass Dein "unendlich" in den else-Zweig kommt.

[Noris]

Ups...
Hatte vergessen das else + Zeile wegzumachen.

[DeddyH]

Ich würde das in etwa so formulieren:

Delphi-Quellcode:

Verbrauch := ZaehlerNeu - ZaehlerAlt;
if Verbrauch > 0 then
  case (Verbrauch) of
       1..3: PreisJeWoche := 210;
       else  PreisJeWoche := 0.06;   
  end; (* case verbrauch *)

[Sherlock]

Was für ein Typ ist Verbrauch? Wenns ein Integer ist, dann setzte halt MaxInt an Stelle von 50. Oder auch
High(DatenTypvonVerbrauch)

Sherlock

[tkone]

würde auch auf die else variante gehen.

[Noris]

Ne ist ein real Wert.

Hat mit der Variante von DeddyH problemlos geklappt.

Trotzdem vielen Dank für die Aufmerksamkeit udn die HIlfe!

[himitsu]

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

[Uwe Raabe]

[quote="himitsu"]

Delphi-Quellcode:

  1..3      : PreisJeWoche := 210;
  3..MaxInt : PreisJeWoche := 0.06;

Das ist aber für 3 sehr wohl undefiniert!

[Ralf Kaiser]

Delphi-Quellcode:

case ZaehlerNeu - ZaehlerAlt of
  1..3      : PreisJeWoche := 210;
  3..MaxInt : PreisJeWoche := 0.06;
  else        PreisJeWoche := 0;  // oder irgendwie anders, bzw. eine Exception werfen
end;

Nur so nebenbei: Welchen Wert hat dann "PreisJeWoche" wenn "ZaehlerNeu - ZaehlerAlt" genau gleich 3 ist? 210 oder 0.06?