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:

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...)?

Delphi-Quellcode:

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?

[Neutral General]

Hallo,

Vielleicht sowas:

Delphi-Quellcode:

function ValueIn(Val: Integer; Arr: Array of Integer): Boolean;
var i: Integer;
begin
  Result := false;
  for i:= 0 to High(Arr) do
    if Arr[i] = Val then
      exit(true);
end;

// Aufruf:

if ValueIn(lFehlerCode,[-99,-98]) then
  ShowMessage('Doof');

[DeddyH]

math.InRange, oder hab ich das falsch verstanden?

[raller09]

hi,

InRange geht nicht, da es keine "Range" ist.

Die Funktion "ValueIn" sieht gut aus, werd ich so mache.
Dachte nur, das Delphi dafür schon ein Sprach-Konstrukt hat.

MfG

raller09

[himitsu]

Zitat:

Zitat von raller09 (Beitrag 1114618)

InRange geht nicht, da es keine "Range" ist.

Im Prinzip schon.

Delphi-Quellcode:

(-99 = x) and (X = -98)

entspricht

Delphi-Quellcode:

(-99 >= x) and (X <= -98)

und für diesen Fall arbeitet InRange optimaler, als ValueIn, da dort nicht erst ein Array erstellt und durchlaufen werden muß.

[DeddyH]

Ich habe den Einwand so verstanden, dass es sich nicht unbedingt um einen zusammenhängenden Bereich handeln muss, sondern auch etwas wie [4,11,123] vorkommen kann. In dem Fall kommt man mit InRange tatsächlich nicht weiter.

[r2c2]

Gibt es einen Grund, warum du überhaupt Fehlercodes einsetzt? Oder bist du dazu gezwungen bzw. sind die gar nicht von dir?

mfg

Christian