Hilfe mit der CheckBoxList

[Sharky]

Zitat von StoRmtec:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
 for  i := 0 to  CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[i] then
  begin
  mThumbs1.InFiles.Text := CheckListBox1.Items.text;
  mThumbs1.CreateThumbnails;   

->>>> checklistbox1.itemindex := checklistbox1.itemindex + 1;
  end
  else
  begin
->>>> checklistbox1.itemindex := checklistbox1.itemindex + 1;
  end;
    checklistbox1.itemindex := 0;
end;

Wofür sind denn die markierten Zeilen?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
 for  i := 0 to  CheckListBox1.Items.Count - 1 do
  if CheckListBox1.Checked[i] then
  begin
   mThumbs1.InFiles.Text := CheckListBox1.Items.text;
  end;
  mThumbs1.CreateThumbnails;   
end;

So müsste es doch gehen.