CheckBoxList переместить выбранные файлы в направлении

Question

Поэтому у меня есть небольшая проблема, моя программа находит и записывает определенные файлы (например, Mp3, wmv и т. д.) в CheckBoxList, затем я хочу выбрать некоторые или все файлы для передачи этих файлов в каталог по своему выбору. Проблема в том, что я не знаю, как я могу переместить ТОЛЬКО выбранные файлы?

Вот немного кода:

procedure TfrMain.Button2Click(Sender: TObject);
var
  dirName : String;
begin
dirName := Edit3.Text;
  CreateDir(dirName);
if DirectoryExists(dirName) then MoveFile(PChar(Path), PChar(DirName));
end;

procedure TfrMain.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked = true then CheckListBox1.SelectAll;
end;

Заранее спасибо.

Answer 1

Вам нужно перебрать список, а затем проверить, проверен ли каждый элемент.

for i := 0 to CheckListBox1.Count-1 do
  if CheckListBox1.Checked[i] then 
    // do something with the item