checklistbox prob

[GuenterS]

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;