Discussion :

[SchpatziBreizh]

Salut tout le monde, j'ai un soucis avec un TobjectList qui contient des TstringList, j'arrive parfaitement à insérer mes TstringList dans le TobjectList mais .... je n'arrive pas à accéder à mes TstringList à partir du TobjectList.
En fait, j'maimerais faire quelque chose dans ce genre la pour y accéder :

Code :

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

1
2
 
monStrList := monObjectList.Items[indice];

Le problème étant naturellement que TobjectList.items renvoie un Tobject et que j'essaie de l'affecter à un TstringList. Je n'arrive pas à trouver la méthode pour récupérer mon StringList.
Je deviens fou. Aidez-moi.
H.E.L.P.

[rsc]

Et :

Code :

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

monStrList := TStingList (monObjectList.Items[indice];

?

[SchpatziBreizh]

le transtypage (si c'est bien le terme) fonctionne bien, un grand merci, j'aurais du y penser plus tôt, le seul (et éternel) problème que je rencontre se situe au niveau de la libération mémoire et de la destruction de mon TObjectList qui me dit : "opération de pointeur non valide".

J'ai fait migrer mon code vers un TobjectList plutôt qu'un Tlist mais je retombe toujours sur la même erreur.
voici ce que je fais dans le desctructeur de ma classe :

Code :

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

1
2
 
monTobjectList.Free;

Le TobjectList détruit-il vraiment proprement tous les objets qu'il contient?

[rsc]

Je ne sais pas exactement pour TObjectList, qui n'existe pas dans D4
Pour moi avec un Tlist, qui ne gère pas les destructions, je ferais :

Code :

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

1
2
3
4
5
6
for i := 0 to MyList .Count - 1 do
begin
  MyStrList := TStringList (MyList .Items [i];
  MyStrList .Free;
end;
MyList .Free;

Si tu pouvais être un peu plus précis sur l'erreur...

[SchpatziBreizh]

C'est exactement ce que j'avais fait et ça fonctionne pour les n-1 éléments de la TList mais pas pour l'élément n, j'ai retourné le problème dans pas mal de sens et rien à faire, encore et toujours la même erreur.
J'ai fait migrer donc mon code vers des TobjectList et c'est toujours pareil, je ne sais vraiment plus quoi faire.

[rsc]

A mon sens, de deux choses l'une :
- Ou tu as zappé le - 1 après List.Count (ça arrive aux meilleurs )
- Ou le dernier TStringList n'avait pas été créé (il arrive qu'on "prépare" la place avant de s'apercevoir qu'on n'a plus rien à charger, on s'arrête et du coup la dernière place est bien là, mais vide).

Sinon je ne vois pas

[SchpatziBreizh]

OK, donc, après moult déboguage, j'ai compris ou était mon erreur. Je vous tiens au courant.
J'ai au moins accentuer le point sur une chose dont j'étais déjà sûr : C'est toujours la faute du programmeur, jamais celle du compilateur !!

[Tardiff Jean-François]

Bonjour,

Je pense que vous avez laisser le OwnsObject à true (Par defaut).

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
List := TObjectList.create;
// OwnsObject = true par defaut
 
List.Add(TStringList.create(Nil));
 
AObject := TStringList[0];
Liste.Remove(AObject);
// Dans ce cas OwnsObject = True don AObject (ma string list) a été détruit
 
List.OwnsObject := False;
AObject := TStringList[0];
Liste.Remove(AObject);
// Dans ce cas OwnsObject = false, aObject existez toujour donc je fais le free
AObject.free;
 
List.free;

[SchpatziBreizh]

Je vais avoir maintenant une nouvelle question :
si 2 instances du même objet pointe sur la même adresse et que l'une des 2 instances détruit et libère la mémoire à cette adresse, les 2 instances de l'objet en question sont-elles détruites?

Pour être plus clair : Je dispose de 2 variables TstringList (TSL1 et TSL2) et d'une variable TList (maListe).
J'instancie une 10aine d'objet TSL1 et 1 instance de TSL2.
Mes 10 TSL1 sont contenus dans maListe. A un moment donné TSL1 et TSL2 pointe sur la même adresse d'un élément de maListe (en l'occurence lors de la destruction).
J'exécute alors ma boucle qui parcours maListe et libère chaque TSL1 et il arrive au dernier élément que TSL1 et TSL2 pointe sur le dernier élément de maListe.
La libération de cet élément se passe bien, seulement, lorsque je souhaite libérer TSL2, j'ai droit à une jolie violation d'adresse. Cela me semble logique mais j'aimerais être sûr que toutes mes instances soient bien détruites.
Comment en être sûr? Merci.

[skywaukers]

oui, si tu as deux variables d'instances qui pointent sur un objet, si tu libère l'objet, il est libéré pour les deux variables qui du coup pointent sur une adresse qui n'est plus valide (d'où la violation d'accès). Il est d'ailleurs conseillé de positionner les variable à nil après libération afin d'éviter ce genre de soucis (nil est une valeur facilement testable).

Par contre, si tu as une TObjectlist, je vois pas pourquoi tu la parcours pour supprimer tous les objets qu'elle contient, laisse le paramètres ownobj à true elle le fera toute seule (par contre ne gère plus la destruction de ses objets du coup.

@++
Dany

[SchpatziBreizh]

non, en fait, je suis revenu sur une TList, c'est pour ça que je boucle, ça fonctionne correctement maintenant, j'ai le moral, en plus c'est le WE alors tout va bien. Je sais pas ce qu'il s'est passé avec le TObjectList mais je songe à l'utiliser quand même dans les autres classes que j'ai à développer.
Merci à tous pour le coup de main.
A+