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.
