Discussion :

[Dry]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Est-ce que un FreeAndNil est suffisant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FreeAndNil( MySl );

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

Merci,
Dry

[exoseven]

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

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^_^ !

[sjrd]

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 Dans ton cas du donnes 500 fois la même adresse, d'un entier qui n'existera bientôt plus

Pas taper

[Dry]

D'accord, un simple Free suffit,
Merci

[slimjoe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Dry]

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

[ShaiLeTroll]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
type
  PseudoInteger = Pointer;
 
...
for i:=0 to 500 do
  MySl.AddObject(IntToStr(i), PseudoInteger(i));

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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