Hallo,
ich hoffe in dieser Rubrik richtig zu sein.
Meine Frage gilt folgender Zuweisung und anschließendem Memory Leak:
Delphi-Quellcode:
procedure TFormViewFinMathZins.FormCreate(Sender: TObject);
begin
Image1.Bitmap.LoadFromStream(TResourceStream.Create(HInstance, 'EWoZZ', RT_RCDATA));
end;
Nach Beendigung des Programms bekomme ich beigefügte Meldung über unerwartete (schwarze) Löcher im Speicher. Das leuchtet mir schon ein, aber wie bekomme ich das Loch gestopft?
Wähle ich folgende Variante:
Delphi-Quellcode:
procedure TFormViewFinMathZins.FormCreate(Sender: TObject);
var
Stream: TStream;
begin
Stream:= TResourceStream.Create(HInstance, 'EWoZZ', RT_RCDATA);
Image1.Bitmap.LoadFromStream(stream);
FreeAndNil(stream)
end;
habe ich logischerweise das Problem nicht.
Meine Frage: Ist es möglich bei der ersteren (eleganteren) Variante die Ressource zu beenden?
Vielen Dank für eure Mühe und
viele Grüße Peter