Einen Haufen Booleans auf Wert prüfen

[p0w3r5tr34m3r]

Hi Zecke,
wenn du die boolschen Werte über irgendwelche Komponenten bekommen solltest könntest du das alles auch über eine Schleife in Verbindung mit FindComponent bekommen.

Delphi-Quellcode:

var 
  i: integer;
  c: TCheckBox;
  o: string;
begin
  for i := 1 to 51 do begin
    c := FindComponent('CheckBox'+inttostr(i));
    o := o + sLineBreak + 'CheckBox' + inttostr(i) + ' = ' + booltostr(c.checked, true);
  end;
  ShowMessage(o);
end;

in der Nachricht sollte dann sowas stehen wie

Code:

CheckBox1 = TRUE
CheckBox2 = TRUE
CheckBox3 = FALSE
...