求批量删除代码一段 100分献上

Question

小弟初学delphi今天遇到一个问题
用扫描的方式扫描文件若干，文件名包括整个路径存放于listview ,listview属性设置了Checkboxes=true
现在已经解决可删除单个文件
deletefile(ShowFileName) 向各位大哥求助，如何写代码可删除选择当Checkboxes=true的所有文件都删除呢？谢谢
尝试了
begin
if  bsSkinListView1.Checkboxes = true then
begin
deletefile(ShowFileName) ;
还是只能删除单个文件，谢谢各位大哥了

Answer 1

有一点头绪，就是要
bsSkinListView1.Items.Item[*].Checked := true ; 才是判断是否选择的
但是怎样循环呢？谢谢各位大大

Answer 2

循环：
for i:=0 to bsSkinListView1.Items.Count-1 do

Answer 3

完整代码如下
var
i:integer;
begin
  for i:=0 to bsSkinListView1.Items.Count-1 dodeletefile(ShowFileName) ;
但是还是只能删除一个文件啊，请大哥再指点指点，谢谢

Answer 4

ShowFileName是什么变量？
如果listview里面是添加了文件名的，你想选择它就删除，应该这样：
 for i:=0 to bsSkinListView1.Items.Count-1 do
    if bsSkinListView1.Items.Item[i].Selected then
     DeleteFile(bsSkinListView1.Items.Item[i].Caption);

Answer 5

ShowFileName是自定义的string变量，用来定义文件完整路径的

Answer 6

ShowFileName, ShowFile: string ;需要全部代码还是那部分的，如需要全部代码请给Qq联系

Answer 7

问题是在QQ上解决的，说一下：看了代码才知道保存文件名的是bsSkinListView2，不是bsSkinListView1，
把1改成2就可以删除了。汗...