Ist Variable in (Integer-Wert, Integer-Wert) - wie umsetzen?

**raller09**

Hi,

mir fällt gerade kein guter Titel ein...

ich muss gerade einige Fehler-Codes Integer-Werte (negativ, bis ca. 9999) auswerten.

Simple:

markieren

Delphi-Quellcode:

			var

  lFehlerCode: Ingeger;

begin

  lFehlerCode := -99;

  if ((lFehlerCode = -99) or (lFehlerCode = -98)) then

  begin

    ShowMessage('Doof');

  end;

end;

geht das auch einfacher (für 2 Werte ist das Ok, aber sobald das etwas mehr Stati sind...)?

if (lFehlerCode in (-99, -98)) then Funktioniert nicht, auch nicht mit eckigen Klammern.
Das wäre aber genau das, was ich möchte.

Ein Set kann nur 256 Elemente.
Und eine TList ist mit dem Objekt-Umbau schon overkill.

markieren

Delphi-Quellcode:

			case lFehlerCode of

  -99, -98: ShowMessage('Doof');

else

  raise Exception.Create('ganz doof');

end

-> case funktioniert, geht es noch einfacher?

Ist Variable in (Integer-Wert, Integer-Wert) - wie umsetzen?

Ist Variable in (Integer-Wert, Integer-Wert) - wie umsetzen?

Forumregeln