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