Checkboxen mit variablen durchzählen

gorrila · Hält's aus hier Beiträge: 4

Ich habe ungefähr 15 checkboxen und will nicht für jede eine if anweisung schreiben.
Wie kann ich nun die checkboxen mit i durchzählen ? (checkbox1....checkbox14)

Das war mein Versuch der leider nicht funktioniert

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.check;
var i:integer;
begin
  for i:=1 to 15 do
    begin
                       if checkbox[i].checked
                       then Teiler:=Teiler+1;
    end;
end;

Danke schonmal

oldmax · Beiträge: 380 D3 Prof, D4 Prof

Hi

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.check;  
var i:integer;  
begin  
  for i:=1 to 15 do  
    begin  
      if TCheckbox.FindComponent(Checkbox+IntToStr(i)).checked  
                       then Teiler:=Teiler+1;  
    end;  
end;

So zum Beispiel, wobei jetzt nicht auf "macht Sinn" geprüft...
Gruß oldmax

_________________
Zier dich nich so, ich krieg dich schon....

Zorro · Beiträge: 76 Win 2000, Win XP Pro Delphi 7 Architect

oldmax hat folgendes geschrieben:

Hi

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.check;  
var i:integer;  
begin  
  for i:=1 to 15 do  
    begin  
      if TCheckbox.FindComponent(Checkbox+IntToStr(i)).checked  
                       then Teiler:=Teiler+1;  
    end;  
end;

So zum Beispiel, wobei jetzt nicht auf "macht Sinn" geprüft...
Gruß oldmax

Da es sich um ein Typecasting (und nicht um Property/Methode) handelt, muss es vermutlich

markieren

Delphi-Quelltext

1:	if TCheckbox(FindComponent...

statt

markieren

Delphi-Quelltext

1:	if TCheckbox.FindComponent...

heissen.

Greetz
Zorro

GTA-Place · Verfasst: Mi 16.01.08 13:04

Um den Source mal funktionierend und korrekt formatiert hier stehen zu haben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var
  I: Integer;
begin
  for I := 1 to 15 do
    if TCheckBox(FindComponent('Checkbox' + IntToStr(I))).Checked then
      inc(Teiler);  // oder Teiler := Teiler + 1, falls nicht Integer
end;

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

gorrila · Hält's aus hier Beiträge: 4

Wunderbar es funktioniert !
Danke sehr an die Helfer

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme