Hallo,
ich habe eine ziemlich große Anzahl an checkboxen (80x80) die alle untereinander zusammenhängen. Jetzt habe ich ziemlich wenig lust über 6000 abfragen zu machen ob checkbox-X gechecked ist.
Habe ich eine andere Möglichkeit die information in eine variable(boolean) zu bekommen als immer per if?
Leider will mir nichts in den Kopf kommen wie ich es anstellen könnte.
Derzeit sieht es leider so bei mir aus. Nur zum veranschaulichen das ich über 6000 Funktionen schreiben müsste mit mehreren 1000 .show / .hide für die Checkboxen.
Delphi-Quellcode:
function func11 () : String;
begin
form1.CheckBox1.Show;
Form1.CheckBox2.Show;
form1.CheckBox3.Show;
Form1.CheckBox4.Show;
Form1.CheckBox5.Show;
Form1.CheckBox6.Show;
Form1.CheckBox7.Show;
Form1.CheckBox8.Show;
form1.CheckBoxa1.Show;
Form1.CheckBoxa2.Show;
form1.CheckBoxa3.Show;
Form1.CheckBoxa4.Show;
Form1.CheckBoxa5.Show;
Form1.CheckBoxa6.Show;
Form1.CheckBoxa7.Show;
Form1.CheckBoxa8.Show;
form1.Label2.Caption := 'XXX';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
HidetheBoxes;
if CheckBox1.Checked then begin
func1;
end;
if CheckBox2.Checked then begin
func2;
end;
if CheckBox3.Checked then begin
func3;
end;
if CheckBox4.Checked then begin
func4;
end;
if CheckBox5.Checked then begin
func5;
end;
if CheckBox6.Checked then begin
func6;
end;
if CheckBox7.Checked then begin
func7;
end;
if CheckBox8.Checked then begin
func8;
end;
if CheckBox9.Checked then begin
func9;
end;
if CheckBox10.Checked then begin
func10;
end;
if CheckBox11.Checked then begin
func11;
end;
form2.hide;
form1.Button1.Enabled := true;
end;