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?

[DeddyH]

Zitat:

Zitat von Noris

Ne ist ein real Wert.

case funktioniert mit nicht-ordinalen Datentypen? Seit wann denn das? :shock:

[Medium]

Das wollt ich auch grad mal so fragen :)

[himitsu]

Zitat:

Zitat von DeddyH

case funktioniert mit nicht-ordinalen Datentypen? Seit wann denn das? :shock:

seit 2091?

nee, Fließkomma <> Ordinal

und wegen der 3 ... tja, blödes Copy&Paste des TE-Codes

[Namenloser]

Nur der Vollständigkeit halber: Mit der Funktion IsInfinite aus der Unit Math kann man prüfen, ob ein Gleitkommawert "unendlich" ist.

[himitsu]

Zitat:

Zitat von NamenLozer

Nur der Vollständigkeit halber: Mit der Funktion IsInfinite aus der Unit Math kann man prüfen, ob ein Gleitkommawert "unendlich" ist.

Und die Konstanten dafür wären Infinity und NegInfinity.

[Namenloser]

Zitat:

Zitat von himitsu

Und die Konstanten dafür wären Infinity und NegInfinity.

Wobei man die zur Überprüfung nicht nutzen sollte:

Zitat:

Note: Only use Infinity in assignments : use IsInfinite.

[himitsu]

Zitat:

Zitat von NamenLozer

Wobei man die zur Überprüfung nicht nutzen sollte:

Aber um eine Variable erstmal auf Unendlich zu stellen, sind die schon praktisch,
damit man dann auch was zum Prüfen (IsInfinite) hat. :angel:

[Medium]

Der Hinweis ist dennoch sehr wichtig, da für diverse NaNs und Infinities mehrere hundert bis tausend (je nach konkretem typ) Werte reserviert sind, so dass es bei einem direkten Vergleich mit diesen Konstanten schon Lotto ähnlich wird :)