Перемещение файлов из списка Listview

[Putin-mode]

Доброй ночи!
Есть программа, в ней выводится список файлов конкретной папки в 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;

Подскажите как переделать с листбокса на листвив?

Нужно чтоб пользователь ставил чеки на против нужных файлов и уже запускал перемещение файлов.

Спасибо!

[Stilet]

Нужно чтоб пользователь ставил чеки на против нужных файлов и уже запускал перемещение файлов.

Используй TCheckListBox.

with CheckListBox1 do 
 for i:=0 to Count-1 do if checked[i] then 
  Movedir(PAnsiChar(Items[ItemIndex]), PAnsiChar(Edit2.Text))

Идея ясна?

[Putin-mode]

А само перемещение? Ваша процедура сработает?

Вот на пример функция удаления выбраных файлов в Listview

begin
if (Form1.ListView1.Selected<>nil) and (Form1.ListView1.Selected.Caption<>'') then begin
 DeleteFile(Form1.ListView1.Selected.Caption);
 Form1.ListView1.Selected.Delete;
end;

вот функция удаления всех файлов из listview

begin
while Form1.ListView1.Items.Count>0 do begin
 if Form1.ListView1.Items[0].Checked=true then begin
  StatusBar1.Panels[0].Text:='Удаление: '+Form1.ListView1.Items[0].Caption;
  if DeleteFile(Form1.ListView1.Items[0].Caption)=false then StatusBar1.Panels[0].Text:='Не могу удалить '+Form1.ListView1.Items[0].Caption;
 end else StatusBar1.Panels[0].Text:='Файл '+ListView1.Items[0].Caption+' удален не будет';
 Form1.ListView1.Items[0].Delete;
 application.ProcessMessages;
end;
StatusBar1.Panels[0].Text:='';
ShowText(0,0);
end;

А как мне вот эту строку

Movedir(PAnsiChar(listbox1.Items[listbox1.ItemIndex]), PAnsiChar(Edit2.Text))

переписать под Listview?

[Putin-mode]

Сообщение от Stilet

Используй TCheckListBox.

А этот компонент есть для дельфи 7?

[Аватар]

Закладки Additional в компонентах у вас нет конечно

[Putin-mode]

С чеклистбоксом вроде разобрался, осталось понять как в цикл запихать чтоб перемещал чекнутые а нечекнутые пропускал.

[Putin-mode]

как дописать вот эту процедуру?

begin
  while CheckListBox1.Count > 0 do

  if CheckListBox1.Checked[I] then
 begin
  Movedir(PAnsiChar(CheckListBox1.Items[CheckListBox1.ItemIndex]), PAnsiChar(Edit2.Text));
  CheckListBox1.Items.Delete(i2);
  end
end;

Она работает но перемещает файл только если на нем стоит чек и если его выбрали путем выделения(серая строка).
Приходится заранее везде ставить чеки, потом щелкать на каждой строке файла и нажимать переместить.
Цикл выпадает с ошибкой List index out of bounds -1.

Спасибо!

[Stilet]

CheckListBox1.Items.Delete(i2);

Это ты зачем делаешь? Хочешь с перемещением избавляться от записи?
Тогда так:

with CheckListBox1 do 
 for i:=Count-1 downto 0 do if checked[i] then begin
  Movedir(PAnsiChar(Items[ItemIndex]), PAnsiChar(Edit2.Text))
  CheckListBox1.Items.Delete(i);
 end;

[Putin-mode]

Stilet, а можно с вашей помощью в личке или в аське доделать этот кусок кода?

Перемещает но строчку не удаляет, снова ошибка List index out of bounds -1 плюс еще предупреждение компилятора FOR-Loop variable "i" may be undefined after loop

И перемещает опять же, при условии если на этой строчке файла стоит курсор(выделение серым)

[Stilet]

Перемещает но строчку не удаляет

А пройдись трассировкой по циклу, и посмотри при каких условиях ошибка.
Возможно нужно писать for i:=Items.Count-1

FOR-Loop variable "i" may be undefined after loop

Это не ошибка а предупреждение. Переменная I после цикла может быть равна черти-чему, будьте осторожны.

в личке или в аське

А меня там нет. Раньше был а сейчас уже не выхожу в контакты.