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