TListView - Eintrag löschen hinterlässt "Loch"

[hathor]

DisposeOf

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var j : Integer;
begin
with ListView1 do
 for j := 0 to Items.Count - 1 do
  if j < Items.Count then
    if Items[j].Selected then
     Items[j].DisposeOf;
end;