Speicher richtig freigeben

[Martin K]

Hi, hab mal ne Frage zum Freigeben des Speichers:

Ich füge zur Laufzeit in FormCreate Bitmaps einer ToolBar hinzu.
Dabei erhalte ich das Bitmap aus einer Funktion, in der das Bitmap erzeugt wird.

Hier mal ein vereinfachtes Beispiel:

Delphi-Quellcode:

function MyBitmap: TBitmap;
begin
  Result := TBitmap.Create;
  Result.LoadFromFile...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1.Images := TImageList.Create(ToolBar1);
  ToolBar1.Images.AddMasked(MyBitmap, clBlack);
end;

Erhalte ich so ein Speicherleck, weil das Bitmap nicht wieder freigegeben wird?
Oder wird es automatisch freigegeben, da es zur ToolBar gehört und die ToolBar zu Form1 ?

[SirThornberry]

du musst die Imagelist und das Bitmap selbst wieder frei geben.
Das Bitmap kannst du jedoch direct nach AddMasked freigeben das mit AddMasked das Bitmap kopiert wird.

[Martin K]

Danke für die schnelle Antwort

Zitat von SirThornberry:

du musst die Imagelist und das Bitmap selbst wieder frei geben.

Sicher?
Die ImageList wird doch zur ToolBar1 erzeugt.
Aber das ist ja nicht das eigentliche Problem.

Zitat von SirThornberry:

Das Bitmap kannst du jedoch direct nach AddMasked freigeben das mit AddMasked das Bitmap kopiert wird.

Wie denn?
Das Bitmap erhalte ich ja durch eine Funktion, wie kann ich es denn dann wieder freigeben?

Geht das etwa so?

Delphi-Quellcode:

ToolBar1.Images.AddMasked(MyBitmap, clBlack);
MyBitmap.Free;

Aber ich rufe doch beim zweiten Mal die Funktion erneut auf und erhalte so auch ein neues Bitmap (das ich freigebe).
Oder liege ich da falsch?

[Hador]

So:

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  ...
  bmp := MyBitmap;
  ToolBar1.Images.AddMasked(bmp, clBlack); 
  Bmp.Free;

[Martin K]

Zitat von Hador:

So:

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  ...
  bmp := MyBitmap;
  ToolBar1.Images.AddMasked(bmp, clBlack); 
  Bmp.Free;

Okay, dann komm ich also um eine extra Variable vom Typ TBitmap nicht drum rum

Aber dann ist es glaub ich eher üblich, das ganze so zu schreiben:

Delphi-Quellcode:

procedure MyBitmap(var Bitmap: TBitmap); 
begin 
  Bitmap.LoadFromFile... 
end;

Oder???

[Martin K]

Nochmal zur ImageList der ToolBar:

Wenn ich die ImageList einer ToolBar so erzeuge:
ToolBar1.Images := TImageList.Create(ToolBar1); oder so:
ToolBar1.Images := TImageList.Create(Self); // Self = Form1 dann muss ich sie doch nicht wieder extra freigeben, oder?

Die ImageList gehört doch dann zur Form1 (bzw. zu ToolBar1 und diese gehört zu Form1) und beim Schließen von Form1 wird die ImageList (ToolBar1.Images) auch wieder ordnungegemäß freigegeben...

Oder dachte ich da bisher falsch???

[Martin K]

Hmm...
Muss leider mal pushen^^

Hat keiner eine Antwort auf meinen obigen Beitrag #6 ?

[DGL-luke]

Du hast recht. Du musst sie wohl nicht selbst freigeben.

[Martin K]

...gut, Danke!

Das wars auch schon