如何使循環刪除目錄中的選定項目

Question

我想在我的列表視圖中從目錄中刪除所選項目。

procedure TFContact.BtnDeleteClick(Sender: TObject); 
var 
SecItem, BUFPath : string; 
i : Integer; 
begin 
    if ListViewTab5.Selected <> nil then 

    for i := 0 to ListViewTab5.Items.Count - 1 do 
    begin 
    SecItem:= TListViewItem(ListViewTab5.Selected).Text; 
    BUFPath:= '/storage/emulated/0/Backup/'+SecItem; 
    TFile.Delete(BUFPath); 
    end 
    else 
    ShowMessage('File Deleted Succesfully'); 
end; 

Answer 1

試試這個：

procedure TFContact.BtnDeleteClick(Sender: TObject); 
const 
    Path = '/storage/emulated/0/Backup/'; 
var 
    Item: TListViewItem; 
begin 
    for Item in ListView.Items do 
    if Item.Checked then 
     TFile.Delete(TPath.Combine(Path, Item.Text)); 
end;