Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TiGü,
26. Jun 2018
Da steht zwar u_daten und Zeile 6703, aber die Funktion ist klar angegeben mit der Notify-Methode der generischen Liste. Und darauf bezieht sich auch die Zeilennummer.
Du wirst wahrscheinlich ein Objekt haben, was aber schon freigegeben ist - warum gilt es zu untersuchen - und noch als Dangling Pointer in der Liste steckt.
Das Freigeben über den Listenautomatismus oder die Erzeugung von...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TiGü,
25. Jun 2018
Auch wenn da ganz viel im Argen ist, konzentrieren wir uns mal auf das Wesentliche.
Schließe das Speicherleck in TfrmMain.NeuKunde.
Du erzeugst k:=TKunde.Create;, gibst aber nur frei, wenn der Kunde schon existiert.
Es würde wohl reichen, wenn du am Schluss einfach Kunden.Add(K) aufrufen würdest.
Dann kannst du dir das Kunden.LoadFromDirector(DataBaseDir); auch sparen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by TiGü,
25. Jun 2018
Wenn du das Testprojekt ohne die spezielle Komponente TBadgeBtn hochladen kannst, so das es sozusagen out-of-the-box zu kompilieren ist, kann man dir bestimmt weiterhelfen. :thumb: