ListView Einträge und Objecte löschen

[Chemiker]

Hallo,

ich möchte eigentlich nur von euch prüfen lassen, ob der Weg wie ich einzelne Einträge und Objecte aus einer ListView lösche, richtig ist.

Delphi-Quellcode:

{------------------------------------------------------------------------------}
procedure TFormMSEinrichten.LoeschenBitBtn4Click(Sender: TObject);
var i: integer;
begin
  // Aus der Liste einen Eintrag löschen.
  if MSAnzeigenListView.Selected <> NIL then
  begin
    // Löschen des angehängten Objectes und den Listen-Eintrag.
    TMSV1(MSAnzeigenListView.Selected.Data).Free; // Object Löschen
    MSAnzeigenListView.Selected.Data:= NIL;       // Zeiger in der List löschen
    MSAnzeigenListView.Selected.Delete;           // Listeneintrag löschen
  end;
end;
{------------------------------------------------------------------------------}

Und nun die Procedure, wenn das Form geschlossen wird.

Delphi-Quellcode:

{------------------------------------------------------------------------------}
procedure TFormMSEinrichten.FormDestroy(Sender: TObject);
var i: integer;
begin
  // Speicher aufräumen
  for i := MSAnzeigenListView.Items.Count-1 downto 0 do
  begin
    TMSV1(MSAnzeigenListView.items[i].Data).free;  // Alle Objecte löschen
    MSAnzeigenListView.items[i].Data:= NIL;        // Zeiger der Liste Löschen
    MSAnzeigenListView.items[i].Delete;            // Einträge Löschen.
  end;
end;
{------------------------------------------------------------------------------}

Bis bald Chemiker