[TStringList] AddObject et FreeAndNil

Bonjour,

Dans mon programme je charge une stringList de la facon suivante :

Code:

---

1 2	for i:=0 to 500 do MySl.AddObject(IntToStr(i), TObject(i));

---

comment libérer la totalité de cette StringList ?

Une chose est sûre le code suivant ne fonctionne pas (violation d'acces sur le Free, car le l'Object est en réalité un entier transtypé):

Code:

---

1 2	for i := 0 to Pred(MySl.count) do MySl.objects[i].Free;

---

Est-ce que un FreeAndNil est suffisant ?

Code:

---

FreeAndNil( MySl );

---

Est ce que tout les entiers alloués vont etre libéré ?

Merci,
Dry

oui FreeAnNil, voir MySl.free, est suffisant étant donné que tu ne stockes pas réellement des objets

Code:

---

1 2 3 4 5 6 7

type PInteger = ^Integer;   ... for i:=0 to 500 do MySl.AddObject(IntToStr(i), PInteger(i));

---

tu peux écrire cela pour te faire penser que c'est n'est pas un Objet, mais un subterfuge pour stocker un Integer (Tag ?)

J'ai l'impression que tu dois programmer en Java, le Cast TObject(i) ne donne pas un Objet Integer, mais un speudo pointeur qui ne pointe rien de bon ^_^ !

Citation:

---

Envoyé par ShaiLeTroll

J'ai l'impression que tu dois programmer en Java, le Cast TObject(i) ne donne pas un Objet Integer, mais un speudo pointeur qui ne pointe rien de bon ^_^ !

---

Oui ben en attendant ton code marche mieux que le tiens :aie: Dans ton cas du donnes 500 fois la même adresse, d'un entier qui n'existera bientôt plus :roll:

Pas taper :aie:

D'accord, un simple Free suffit,
Merci

Citation:

---

Envoyé par Dry

Code:

---

1 2	for i:=0 to 500 do MySl.AddObject(IntToStr(i), TObject(i));

---

---

J'utilise très souvent cette technique pour stocker un ID pour chaque ligne de la liste. Pas besoin de libérer quoi que ce soit parce qu'il n'y a pas d'objet autre que la liste. On ne fait qu'utiliser les 32 bits du pointeur pour y stocker la valeur d'un entier. Vraiment pratique.

Citation:

---

On ne fait qu'utiliser les 32 bits du pointeur pour y stocker la valeur d'un entier. Vraiment pratique.

---

C'est l'explication technique qui me manquait, maintenant tout est claire dans mon esprit,
Merci

Effectivement sjrd, j'ai fait une grosse boulette, de te façon ça ne compile même pas, la honte :aie: ...

Code:

---

1 2 3 4 5 6

type PseudoInteger = Pointer;   ... for i:=0 to 500 do MySl.AddObject(IntToStr(i), PseudoInteger(i));

---

et

Code:

---

1 2 3

for i:=0 to MySl.count - 1 do K:= Integer(MySl.Objects[i]);

---