удаление из ListView [D7, XP]
13 © (2006-03-29 20:42:00)
В ListView находится список файлов (свойство Checked=true) мне
нужно удалить файлы выбранные галкой.
Вот код:
var
i:integer;
begin
for i:=0 to listView1.Items.Count-1 do
if listView1.Items[i].checked then
begin
DeleteFile(ListView1.items[i].caption);
end;
end;
у меня вопрос а как одновременно с удалением файла удалить
его из listView.
Rial (2006-03-29 22:13:00) [1]
Var I,N:Integer;
begin
With ListView1 do begin
N:=Items.Count;
I:=0;
While (I<=N-1)do begin
If (Items[I].Checked)then begin
DeleteFile(Items[I].Caption);
Items.Delete(I);
Dec(N);
end else
Inc(I);
end;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
