2

キャプションに基づいてリストビュー アイテムを削除しようとしていますが、これに対する解決策が見つかりません。アイテムを削除できる唯一の方法は、インデックスを使用することです。

listview1.Items.Delete (0);

キャプションからアイテムを削除するのを手伝ってくれる人はいますか?

4

2 に答える 2

8

次のようなものを使用できます。これはListItem、キャプションItem 2で a を見つけようとし、見つかった場合は削除します。

procedure TForm1.Button1Click(Sender: TObject);
var
  LI: TListItem;
begin
  LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
  if Assigned(LI) then
  begin
    ListView1.Selected := LI;
    ListView1.DeleteSelected;
  end;
end;

最初に項目を選択する必要のない別の方法は、見つかった項目を次のように削除することIndexです。

procedure TForm1.Button2Click(Sender: TObject);
var
  LI: TListItem;
begin
  LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
  if Assigned(LI) then
    ListView1.Items.Delete(LI.Index);
end;
于 2013-10-17T13:29:53.800 に答える
-1

手順 TForm1.Button1Click(送信者: TObject); var LI: TListItem; LI を開始します:= ListView1.Selected; Assigned(LI) の場合、ListView1.Selected := LI を開始します。ListView1.DeleteSelected; 終わり; 終わり;

于 2021-04-19T06:11:45.680 に答える