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