tbitmap.free dans une function

bonjour a tous , voila , j'ai un probleme qui me prend la tete et bien , je ne sais pas pq voila :

Code:

---

1 2 3 4 5 6 7 8 9

function dessiner : tbitmap; var bmp : tbitmap; begin bmp := tbitmap.create; //code result := bmp; bmp.free; // et c'est ici que tout foire, je ne sais pas pq il ne veut pas liberer la memoire.

---

merci d'avance a+

Pourquoi veut-tu libérer un objet que tu retourne en résultat de ta fonction ? Si tu veux conserver une fonction, fais en sorte que ce soit le code appelant qui libère l'objet.

Citation:

---

Envoyé par Pierre Castelain

Pourquoi veut-tu libérer un objet que tu retourne en résultat de ta fonction ?

---

Je pense que Delphi parre ce problème en clonnant l'objet.

Je pense que si ça plante c'est parce qu'il doit détruire son objet précédemment dans son code.

Bonjour,

Tout à fait d'accord avec Pierre ce que tu fais n'est pas logique.

Essaie plutôt ceci alors:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure Dessiner(var B: TBitmap); begin with B do begin // Ton code ici... end; end;   Procedure MaProc; var Bitmap: TBitmap; begin Bitmap:= TBitmap.Create; Bitmap.Height:= 100; Bitmap.Width:= 100; Dessiner(Bitmap); /// Code supplémentaire ici... Bitmap.Free; end;

---

Cordialement Laurent

heu oui, franchement, j'aurais dû penser directement a cela, merci
a tous.
a+

Pense à ajouter le tag [RESOLU]

Portu, je ne devrais pas avoir à te dire ça : LIS MA SIGNATURE !!!

La méthode de Laurent est effectivement à suivre dans ce cas. Juste que c'est inutile de passer le Bitmap par référence. Car comme tous les Objet TBitMap est un pointeur, donc la modification des propriétés sera bien sur l'objet lui-même et non une copie.

Code:

---

1 2 3 4 5 6 7

procedure Dessiner(B: TBitmap); begin with B do begin // Ton code ici... end; end;

---