Checkboxen mit gleichem Boolean-Wert zählen

[Tumm]

Hi

Ich habe ein Programm geschrieben, in dem 29 Checkboxen sind. Wie kann ich (anhand eines Integers) alle CheckBoxen mit dem gleichen Boolean-Wert zählen?

Beispiel: Alle Checkboxen zählen, die auf 'False' gesetzt sind.

Tumm

[Balu der Bär]

Mit FindComponent alle Boxen in einer for-Schleife durchgehen, falls Box auf False steht (was immer du dmit meinst) => Inc(i).

[Tumm]

Das hab' ich schon probiert. Aber Delphi meint, dass die Eigenschaft 'Checked' undefiniert sei.

[Balu der Bär]

Zeig doch mal her was du versucht hast, meine Glaskugeln ist im Urlaub.

[Tumm]

Delphi-Quellcode:

if FindComponent('CheckBox' + IntToStr(c1)).Checked = true then

...

[Neutral General]

if TCheckbox(FindComponent('CheckBox' + IntToStr(c1))).Checked = true then

[Tumm]

Danke, es funzt!

[Tumm]

Hi

Ich hab das so angewendet:

Delphi-Quellcode:

while c3 < 29 do begin
Inc(c3);
if TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Checked = true then begin
if durckm.ItemIndex = 1 then
a.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgeben!') else
Memo1.Lines.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgegeben!');
end else begin
if durckm.ItemIndex = 1 then
na.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat nicht abgegeben!');
Memo1.Lines.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgegeben!');
end;
end;

c3 = Integer, a = Tstrings, na = Tstrings, Memo1 = Memo

Aber es geht nich! (Zugriffsverletzung)

[jakobwenzel]

Schon mal was von Debuggen gehört?

[Neutral General]

Wo hast du C3 definiert? Lokal oder? Hast du C3 auch vorher auf 0 gesetzt weil sonst ist C3 nicht initialisiert und da kommt nicht viel gutes bei raus