Hi,
mir fällt gerade kein guter Titel ein...
ich muss gerade einige Fehler-Codes Integer-Werte (negativ, bis ca. 9999) auswerten.
Simple:
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.
Delphi-Quellcode:
case lFehlerCode
of
-99, -98: ShowMessage('
Doof');
else
raise Exception.Create('
ganz doof');
end
-> case funktioniert, geht es noch einfacher?