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