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

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