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?

Hallo,

Vielleicht sowas:

zusammenfalten · markieren

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');

math.InRange, oder hab ich das falsch verstanden?

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

Zitat von raller09:

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

Im Prinzip schon.


(-99 = x) and (X = -98) entspricht (-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ß.

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.