Der in Operator

[Sherlock]

Hi zusammen,
ich wollte gerade ein in verwenden, um ein längliches if zu verkürzen.
Aus:
 if (messwert.WerteDefID = wdPH.No) or (messwert.WerteDefID = wdBE.No) then sollte ein hübsches:
if messwert.WerteDefID in [wdPH.No, wdBE.No] then werden.
Verglichen werden hier allesamt Integer. Es kompiliert auch brav. Nur zur Laufzeit ist das immer false, obwohl ich im Debugger sehe, daß eine Übereinstimmung vorliegt.
Aus diesem SO-Beitrag http://stackoverflow.com/questions/9...operator-usage lese ich heraus, daß das irgendwie nur mit "kleinen" (Byte-) Werten gehen soll, ich habe aber eine Übereinstimmung mit einem Wert von 1743...liegt es daran? Oder mache ich etwas grundsätzlich falsch.

Sherlock

[Uwe Raabe]

Der in-Operator agiert nur mit Sets und Sets sind auf 0..255 beschränkt.

Der Compiler führt beim Aufbau der Sets einen impliziten Cast auf Byte aus. Hast du die Überlaufprüfung aktiv? Die sollte da eigentlich zur Laufzeit anspringen.

[Sherlock]

Haha, Danke, genau die Überlaufprüfung ist aus

Schade aber, weil eigentlich könnte man damit reichlich Eleganz und Übersichtlichkeit produzieren. Vielleicht gibt es aber sogar eine Warnung dazu?

Sherlock

[TiGü]

Was spricht gegen diese elegante Möglichkeit?

Delphi-Quellcode:

  case messwert.WerteDefID of
    wdPH.No,
    wdBE.No :
    begin

    end;
  end;

[himitsu]

Im Grunde brauchst du eine Funktion ala MatchStr (Welche es aber nicht im Delphi gibt ... k.A. warum),
aber eventuell reicht auch InRange.

Delphi-Quellcode:

function MatchInt(AInt: Integer; const AValues: array of Integer): Boolean; 

if MatchInt(messwert.WerteDefID, [wdPH.No, wdBE.No]) then

Aber den CASE-Trick verwende ich da auch öfters.


Bei Werten zwischen 0 und 65535 könnte man eventuell auch die Unicode-Funktionen misbrauchen aber in der Unit Character finde ich leider keine passende Funktion.



0..255 => Rate mal, warum IN nicht mehr beim Char (TSysCharSet) geht und Delphi seit 2009 eine Warnung wirft.

[Sherlock]

Ja, das case verwende ich jetzt auch.
Auf andere "üble" Tricks will ich lieber im Sinne der Lesbarkeit verzichten

Sherlock

[TiGü]

Seit wann nochmal ist case of das neue with ?

[Sherlock]

Neee, das kannste jetzt aber echt nicht vergleichen!

Sherlock