checklistbox prob

[G G]

hi bei dem folgenden code, wenn mehr als eine sache mit einem hacken versehen sind, zeigt er mit showmessage immer nur eine der ausgewählten an. WOran kann das liegen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
checker : integer;
begin
checker := 0;

while checker < checklistbox1.count  do begin



if checklistbox1.Selected[checker] = true then begin

showmessage (checklistbox1.Items[checker]);
end;
checker := checker +1;
end;


end;

[GuenterS]

Zitat:

Zitat von G G

hi bei dem folgenden code, wenn mehr als eine sache mit einem hacken versehen sind, zeigt er mit showmessage immer nur eine der ausgewählten an. WOran kann das liegen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
checker : integer;
begin
checker := 0;

while checker < checklistbox1.count  do begin



if checklistbox1.Selected[checker] = true then begin

showmessage (checklistbox1.Items[checker]);
end;
checker := checker +1;
end;


end;

Versuchs mal damit...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   lchecker : integer;
begin
   for lchecker := 0 to checklistbox1.Count - 1  do
      if checklistbox1.Checked[lchecker] = true then
         showmessage (checklistbox1.Items[lchecker]);
end;

[G G]

cool danke, hjaut hin. Hast du vielleicht ne erklärung warum des mit meinem code nicht ging, weil ich seh da eigentlich keinen fehler.

Danke :dancer2:

[kiar]

du hast in deinem code keine schleife

raik

[GuenterS]

Ja hab ich.

wenn Du Selected[lChecker] abfragst, fragst Du ab ob der Eintrag selektiert ist, was unabhängig von den Checklistboxen ist.

[GuenterS]

Zitat:

Zitat von kiar

du hast in deinem code keine schleife

raik

??

er hat eine schleife im Code fragt nur das falsche property ab...

[kiar]

habe den thread nur überflogen :oops:

schaue gerade zeitfahren sorry

raik