Wie erkenne ich eigentlich ein Memory-Leak?

[himitsu]

ReportMemoryLeaksOnShutdown
http://www.delphipraxis.net/183846-f...nshutdown.html

PS:
.Free prüft intern bereits auf Self<>nil, bzw. aus Assigned(Self).
Und deine Prüfung geht kaputt, wenn es im Free knallt und dann kein nil gesetzt wird.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button4Click(nil);  // Aufräumfunktion aufrufen, oder direkt FreeAndNil(bmp);
  bmp := TBitmap.Create;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  FreeAndNil(bmp);
end;

procedure TForm1.Form1Close(Sender: TObject);
begin
  Button4Click(nil);  // Aufräumfunktion aufrufen, oder direkt FreeAndNil(bmp);
end;

[Frank Ranis]

Hallo himitsu,

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  FreeAndNil(bmp);
end;

Ok , das ist nun aber ein Problem meiner Programmierung.

Ich wollte doch nur zeigen, wie man Leichen produzieren kann, wenn man die Objekte nicht wieder richtig frei gibt.
Und das man das dann mit 'GetHeapStatus.TotalAllocated' auf einfache Weise sehen kann, wenn sich der Speicherbedarf unerklärlich erhöht.

Wo man den Fehler gemacht hat , sieht man natürlich nicht.

Gruß

Frank

[himitsu]

FastMM im FullDebugMode speichert die Rücksprungadresse des Aufrufs, also quasi die Adresse derjenigen, der den Speicher angefordert hatte.