Checkboxen zurücksetzen?

[hjm]

Hallo,

was auch geht, ein Array mit den in Frage kommenden Checkboxen zu erstellen.

Funktioniert auch dann, wenn noch mehrere andere Checkboxen vorhanden sind.

Delphi-Quellcode:

var
  Mein_CH_box : Array [0..19] OF TCheckbox;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Mein_CH_box[ 1] := Checkbox1;    // CheckBoxen in Array eintragen
  Mein_CH_box[ 2] := Checkbox3;
  Mein_CH_box[ 3] := Checkbox5;
  Mein_CH_box[ 4] := Checkbox6;
              ..
              ..
              ..
  Mein_CH_box[19] := Checkbox38;
end; 

procedure TForm1.ClearChecks;
var
  i : Integer;
begin
  for i := 0 TO 19 DO Mein_CH_box[i].Checked := False;  // Checked entfernen
end;