TImages verwalten

[Schwedenbitter]

Ich bin jetzt (urlaubsbedingt) schon etwas weiter:
Mein DockForm bietet ein Ereignis an, welches vor dem Löschen ausgelöst wird und die Adresse des DockForms übergibt. Damit bekommt das Hauptfenster mit, das und was gelöscht wurde. Danke insoweit für Eure wertvollen Tipps!

Jetzt wollte ich das gern auf Speicherlecks untersuchen, bevor ich weitermache. Dazu habe ich mir FastMM4991 runtergeladen. Ich hatte FastMM schon vor Jahren benutzt. Meiner Erinnerung nach muss man es einfach als erste Unit in die dpr-Datei einbinden. Anderes Infos habe ich trotz Suche im Forum nicht gefunden.
Kann es sein, dass FastMM unter Delphi XE5 nicht mehr funktioniert?

Es kommt keine Meldung. Auch dann nicht, wenn ich in FormCreate einfach folgenden Code einfüge:

Delphi-Quellcode:

With tStringList.Create Do
Begin
  Append('Datenmüll');
End;

FastMM scheint schon lange nicht mehr gepflegt und explizit zu XE5 und FastMM konnte ich nichts finden.

Was mache ich falsch?
Falls FastMM nicht mehr funktioniert, womit erforscht man denn heutzutage Speicherlecks?

Gruß, Alex

[Sir Rufo]

FastMM ist seit ??? in Delphi integriert, wird also schon direkt mitgeliefert.

Wenn du den Bericht über Speicherlecks am Ende haben möchtest, dann musst du das lediglich einschalten mit ReportMemoryLeaksOnShutdown := true; (am besten gleich am Anfang in der Projekt-Datei)

[himitsu]

Zitat von Sir Rufo:

FastMM ist seit ??? in Delphi integriert,

Ich glaub D2006/TDE, also würde passen.

Das externe FastMM braucht man eigentlich nur, wenn man z.B. die erweiterten Debuggingfunktionen nutzen möchte. (Prüfen auf Pufferüberläufe, Schreiben nach Free, wer hat was wann erstellt usw.)


FastMM funktioniert noch und ja, es muß als Erstes in die DPR (außer man benutzt Packages, denn da muß es als Erstes in die DPK des ersten Packages)

[Schwedenbitter]

Danke!
Und da ich Delphi jetzt einfach mal so glaube, freue ich mich, dass mein Code bis hierhin keine Speicherlecks produziert hat.

Eine letzte Frage habe ich dann aber trotzdem noch:
Ich hatte hier (etwas weiter unten) bereits geschrieben, wie ich auf die einzelnen Forms im PageControl zugreife. Den Code habe ich um 2 Zeilen kürzen können. Ich würde es aber gern noch übersichtlicher gestalten und daher den Zugriff casten. Folgendes funktioniert leider nicht:

Delphi-Quellcode:

// Aus diesem hier ...
Procedure TMainForm.FormKeyDown(Sender: TObject; Var Key: Word;
   Shift: TShiftState);
Var
   lDockForm   : TDockForm;
Begin
   If (PCPics.PageCount = 0) Then Exit;
   If (Key = VK_DELETE) Then
   Begin
      lDockForm:=fPicList.Items[PCPics.ActivePageIndex];
      lDockForm.BtnDelete.Click;
   End;
End;

// ... soll auch an mehreren anderen Stellen so etwas hier werden:
Procedure TMainForm.FormKeyDown(Sender: TObject; Var Key: Word;
   Shift: TShiftState);
Begin
   If (PCPics.PageCount = 0) Then Exit;
   If (Key = VK_DELETE) Then
      With (fPicList.Items[PCPics.ActivePageIndex] As TDockForm) Do
         BtnDelete.Click;
      // geht auch nicht :-)
      (fPicList.Items[PCPics.ActivePageIndex] As TDockForm).BtnDelete.Click;
End;

Wieso geht es so nicht?
Kann man es irgendwie (anders) machen?

[edit]
Ich wäre nicht auf die Idee gekommen, dass es mind. 3 Varianten gibt, wie man casten kann. So klappt es:

Delphi-Quellcode:

Procedure TMainForm.FormKeyDown(Sender: TObject; Var Key: Word;
   Shift: TShiftState);
Begin
   If (PCPics.PageCount = 0) Then Exit;
   If (Key = VK_DELETE) Then
      TDockForm(fPicList.Items[PCPics.ActivePageIndex]).BtnDelete.Click;
End;

Aus 8 Zeilen 3 gemacht. Sehr schön.
[/edit]

Gruß, Alex

[Jumpy]

Kürzer heißt ja nicht unbedingt übersichtlicher/lesbarer, sprich ich finde den 8-Zeiler verständlicher, aber das ist ja bekanntlich Geschmacksache. Aber getreu dem Motto Wenn-Schon-Denn-Schon würde ich dann aber auch einen Zweizeiler draus machen:

Delphi-Quellcode:

If (Key = VK_DELETE) And (PCPics.PageCount > 0) Then
  TDockForm(fPicList.Items[PCPics.ActivePageIndex]).BtnDelete.Click;

So fällt auch das unschöne (ich weiß: auch weider Geschmacksache) vorzeitige exit weg.

[mquadrat]

ReportLeaksOnShutdown zeigt natürlich nur Speicherlecks, die beim Beenden der Anwendung noch bestehen. Ist also z.B. nicht geeignet um 24/7 Anwendungen Lecks zu finden, wenn Objekte mit dem Hauptform als Owner erstellt werden. (Soll es ja geben)

[Schwedenbitter]

Zitat von Jumpy:

Kürzer heißt ja nicht unbedingt übersichtlicher/lesbarer, sprich ich finde den 8-Zeiler verständlicher, aber das ist ja bekanntlich Geschmacksache. Aber getreu dem Motto Wenn-Schon-Denn-Schon würde ich dann aber auch einen Zweizeiler draus machen ...
So fällt auch das unschöne (ich weiß: auch weider Geschmacksache) vorzeitige exit weg.

Das stimmt. Es fragt sich bloß, was am Ende (durch mich) besser zu warten sein wird. Das weiß nur die Zeit.
Einen Zweizeiler kann ich nicht drauß machen, weil später andere Tastenabfragen hinzukommen werden. Ich fange gerade erst an. Ich mag ein solches Exit auch nicht wirklich aber es spart einen Tab-Einzug und macht den weiteren Code damit lesbarer.

Zitat von mquadrat:

ReportLeaksOnShutdown zeigt natürlich nur Speicherlecks, die beim Beenden der Anwendung noch bestehen. Ist also z.B. nicht geeignet um 24/7 Anwendungen Lecks zu finden, wenn Objekte mit dem Hauptform als Owner erstellt werden. (Soll es ja geben)

Danke für die Erläuterung. Das mit dem Hauptform als Owner gilt dann sicherlich auch für Objekte auf dem Hauptform (z.B. TPageControl) als Owner. Das würde ich natürlich auch gern testen.

Gibt es einen Schalter, mit dem man auch die bösen, unsichtbaren Lecks des Hauptforms herausfindet?