Einen Haufen Booleans auf Wert prüfen

[Nikolas]

Das mit den array ist eigentlich sehr einfach:

Delphi-Quellcode:

Liste: array[1..50] of Boolean;
Liste[1]:= true; // Wert speichern
if Liste[i] then showmessage('Hallo Welt'); // auslesen

// Und die schleife dann:
var Bool: boolean;

Bool:= true;
for i:=1 to high(Liste) do
  if not Liste[i] then
  begin
  Bool:= false;
  break;
  end;

if bool then showmessage('Juhu, alles ist True') else showmessage('mindestens einer war false');

Die Schleife läuft also nur so lange, bis ein Boolean aus der Liste false ist und bricht dann ab. Um danach erkennen zu können, ob die Schleife ganz durchlaufen oder abgebrochen wurde, gibts den zusätzlichen Boolean;