Delphi-Quellcode:
var i: integer; aBool: boolean;
begin
aBool := False;
For i := 161 to 170 do
if feldaktive[i] <> 1 then
aBool := true
else
begin
aBool := false;
break;
end;
if aBool then
Das wäre ein möglicher Weg.
//edit: Ich hätte mir die Idee vorher patentieren lassen sollen
