Hallo,
Zitat von
Guido Eisenbeis:
Delphi-Quellcode:
type
TMeinObject = class(TObject)
private
FIcon : TIcon;
public
constructor Create;
property ObjectIcon : TIcon read FIcon write FIcon;
end;
constructor TMeinObject.Create;
begin
FIcon:=TIcon.Create;
end;
function IchGebeEinObjectZurueck : TMeinObject;
begin
Result:=TMeinObject.Create;
Result.ObjectIcon.LoadFromFile('C:\Test.ico'); // <- Speicher belegen
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with IchGebeEinObjectZurueck do
try
// Icon aus Exe auslesen und Image zuweisen
Image1.Picture.Graphic := ObjectIcon
finally
Free;
end;
end;
Nun ergibt sich wieder das gleiche Ergebnis: Klickst du vielfach auf den Button, ist im Taskmanager ein langsames aber stetiges Ansteigen der Speicherbelegung zu erkennen!
Das ist ja auch klar. Das TMeinObjekt wird zwar freigegeben, das darin erstellte TIcon aber nicht. Du hast also ein Speicherleck erzeugt. Wenn Du im Destruktor von TMeinObject das TIcon aufräumst, steigt auch der Speicher nicht an.
Gruß
xaromz