ListViewでランダムに選択された項目のファイルを削除するには？ (ID:14672)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 おぬし、まだまだ修行が足らん。 var DeleteItem: TListItem; begin if ListView1.Selected <> nil then begin // 選択状態ならば while ListView1.Selected <> nil do begin DeleteItem := ListView1.Selected; DeleteFile(DeleteItem.SubItems[0] +'\'+ DeleteItem.Caption); DeleteItem.Delete; end; end else MessageBox(Handle,'リストを選択してください。', nil, MB_OK or MB_ICONERROR);