if abfrage vereinfachen

[HeZa]

Zitat von ferby:

Hallo,
gibt es eine Möglichkeit so eine Abfrage
  if (feldaktive[161]<>1) and (feldaktive[162]<>1) and (feldaktive[163]<>1) and (feldaktive[164]<>1) and (feldaktive[165]<>1) and (feldaktive[166]<>1) and (feldaktive[167]<>1) and (feldaktive[168]<>1) and (feldaktive[169]<>1) and (feldaktive[170]<>1) then zu vereinfachen?
ferby

Ich würde ein Funktion daraus machen

Delphi-Quellcode:

function IstImBereich(Wert: Integer; WerteArray: array of Integer; Start, Ende: Integer;
var
  i: Integer;
begin
  Result := True;
  for i := Start to Ende do
    if Wert = WerteArray[i] then Exit;
  Result := False;
end;

Dann kannst du im deine Abfrage wie Folgt umschreiben:

  if not IstImBereich(1, feldaktive, 161, 170) then ... Das ist flexibel und liest sich gut.

Ciao HeZa