ディレクトリ内の選択された項目を削除するループを作成する方法

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;