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;