Hallo marabu u. Muetze1,
ich habe das Assigned wieder herausgenommen, ist eigentlich auch klar dass es für das Programm nicht erforderlich ist, denn wenn kein Object vorhanden wäre, liegt schon ein Fehler bei der Eingabe vor.
@marabu
Habe das ganze mit den Haltepunkt durchgeführt und kann Deine Angaben bestätigen, beim zerstören der Formulars wird für jeden Item-Eintrag die Procedure OnDeletion aufgerufen,
damit ist es nicht mehr erforderlich, das Ganze noch mal durchzuführen. Habe also die Procedure: FormDestroy gelöscht.
Wenn das so weiter geht, ist von meinem Quelltext bald nicht mehr übrig und das Programm funktioniert besser als zuvor.
Einzelne Einträge löschen:
Delphi-Quellcode:
procedure TFormMSEinrichten.LoeschenBitBtn4Click(Sender: TObject);
begin
// Aus der Liste einen Eintrag löschen.
if MSAnzeigenListView.Selected <> NIL then
begin
MSAnzeigenListView.Selected.Delete; // Listeneintrag löschen
end;
end;
Object wieder löschen und Speicher wieder freigeben:
Delphi-Quellcode:
{-------------------------------------------------------------------------------
Procedure: TFormMSEinrichten.MSAnzeigenListViewDeletion(Sender: TObject;
Function: Die Procedure wird von Delete angesprungen, kurz bevor der Eintrag
aus der Liste gelöscht wird.
Wenn das Form zerstört wird, wird die Routine für jeden Eintrag ange-
sprungen und das Object gelöscht und der Speicher wieder freigeben.
Parameter: Item //Ist der Eintrag der gerade gelöscht werden soll.
letz.Änd.: 17.06.2007 // 14:00
-------------------------------------------------------------------------------}
procedure TFormMSEinrichten.MSAnzeigenListViewDeletion(Sender: TObject;
Item: TListItem);
begin
TMSV1(Item.Data).Free; // Object löschen u. Speicher wieder freigeben
end;
{------------------------------------------------------------------------------}
TAction:
Das Demo von Sharky kann ich leider jetzt nicht herunterladen, weil die Sicherheitseinstellung dies nicht erlauben. Muss ich mir später auf einem anderen Computer ansehen.
Bis bald Chemiker