Checkboxenanzahl in Label ausgeben

[LA_18]

Guten Tag;

ich möchte in einem Label ausgeben, wieviele Checkboxen ausgewählt sind, kann mir bitte

jemand helfen !! Also müsste vorher überprüft werden wie viele Checkboxen ausgewählt sind und das

Label müsste dann die Zahl ausgeben !!

MfG LA_18

[mkinzler]

Zu 1.) Wieviel Checkboxen gibt es, wie heißen diese? Liegen die alle auf dem selben Formular/Container?
Zu 2.) Label.Text := IntToStr( <Anzahl>);

[LA_18]

also es liegen alle auf der selben Form !! Es sind 3 !!

[LA_18]

na... checkbox1 checkbox2 und checkbox3

[mkinzler]

Wie heißen sie?

1.) Anzahl := 0;

Delphi-Quellcode:

if <Checkbox1>.Checked then inc(Anzahl);
if <Checkbox3>.Checked then inc(Anzahl);
...

2.) Checboxn heißen CheckBox1, CheckBox2, ...
Anzahl := 0;

Delphi-Quellcode:

for i := 1 to <Anzahl Checkboxen) do
begin
    if (FindComponent( "CheckBox' + IntToStr( i)) as TCheckBox).Checked then inc( Anzahl);
end;

[Hawkeye219]

Hi,

wenn es wirklich nur die 3 Checkboxen sind:

Delphi-Quellcode:

var
  Count : Integer;
begin
  Count := Ord(CheckBox1.Checked) + Ord(CheckBox2.Checked) + Ord(CheckBox3.Checked);
  Label1.Caption := IntToStr(Count);
end;

Bei einer (viel) größeren Anzahl bietet sich eine Schleife ähnlich der an, die Markus vorgeschlagen hat. Voraussetzung ist dann aber, daß die Checkboxen lückenlos durchnummeriert sind.

Gruß Hawkeye

[LA_18]

Danke dir " Hawkeye219 " . Das geht . Tschau Leute ..