Einen Haufen Booleans auf Wert prüfen

[Klaus01]

Delphi-Quellcode:

i:=0;
while (not liste[i]) and (i < length(liste)) do
  inc(i);

auch diese Schleife wird nur solange durchlaufen bis ein Element true ist.

[edit] and (i < length(liste)) hinzugefuegt, Danke devilsCamp.
Gruesse Klaus