Есть программа, в ней выводится список файлов конкретной папки в Listbox а потом происходит перемещение этих файлов в другую папку.
Минус в том что нет выбора какие именно файлы из списка нужно переместить и они перемещаются все.
Вот моя функция перемещения
Код:
Код: Выделить всё
procedure TForm1.Button4Click(Sender: TObject);
begin
while ListBox1.Items.Count > 0 do
begin
if Movedir(PAnsiChar(listbox1.Items[listbox1.ItemIndex]), PAnsiChar(Edit2.Text)) then
ListBox1.Items.Delete(i2)
else
begin
ShowMessage('Объект не перемещен');
Break;
end;
end;
ShowMessage('Объекты перемещены');
end;Подскажите как переделать с листбокса на листвив?
Нужно чтоб пользователь ставил чеки на против нужных файлов и уже запускал перемещение файлов.
Или доработать эту процедуру
Код:
Код: Выделить всё
with CheckListBox1 do
for i:=0 to Count-1 do if checked[i] then
Movedir(PAnsiChar(Items[ItemIndex]), PAnsiChar(Edit2.Text))так чтоб перемещались отмеченые файлы, и строчки которые относятся к перемещенным файлам тоже удалялись.
Спасибо!