Einen Haufen Booleans auf Wert prüfen

[DevilsCamp]

Zitat von Klaus01:

Delphi-Quellcode:

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

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

Gruesse Klaus

Und das Programm wird mit einem Fehler abgebrochen, wenn ALLE Elemente FALSE sind