Discussion :

[delphidebutant]

Bonjour,
L'aide de Delphi était perfectible avec delphi6.

avec l'édition 2005 perso, c'est carrément à vomir.

Plus aucun exemple de code, le MS_prout document explorer qui ne connait pas la lecture dans un autre onglet, et google est plus que laconique sur les exemples d'utilisation de TList delphi.

Je veux faire une liste de classes.

Pas de pb à la création

Code :

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

1
2
3
4
      mon_instance := TMaClasse.Create;
      ma_Liste.Add(@mon_instance);
      mon_instance.champ1 := toto1;
      mon_instance.champ2 := toto2;

Par contre, au debug :

ma_Liste.Items[0]^ me retourne : (no value)

Déjà, je pige pas : pourquoi ma_Liste.Items[0]^ ne retourne pas le contenu de mon_instance ?

Comment puis-je affecter les 2 champs qui sont pointés par ma_Liste.Last ?

ma_Liste.Last^.champ1 n'est pas accepté par le compilo

Merci pour votre aide.

[rsc]

ma_Liste.Items[0]^ me retourne : (no value)
Déjà, je pige pas : pourquoi ma_Liste.Items[0]^ ne retourne pas le contenu de mon_instance ?

ma_Liste.Items[0] te renvoie un Pointeur sur ton instance, mais un pointeur non typé (Pointer). Pour accéder à ton instance, il faut transtyper ce pointeur par un pointeur spécifique

Code :

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

1
2
3
4
 
type PMaclasse = ^TmaClasse;
P : PMaclasse;
P := ma_Liste.Items[0]);

Tu te simplifierais un peu la vie en utilisant TObjectList au lieu de TList. Il te suffirait de transtyper en

Code :

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

TMaclasse (ma_Liste.Items[0])

pour avoir ton instance.

Après, pour Last, c'est le même topo.

[delphidebutant]

Voilà qui est + clair.

Ici, j'ai trouvé mon bonheur,
http://nono40.developpez.com/sources/source0004/

je sais pas s'il y a une telle aide pour les TList sur ce site.
Ce serait pas mal, pour ce truc basique, mais je suis audidacto-bidouilleur.
Là, j'avais rien trouvé dans la FAQ du langage.

En tout cas, super merci pour ton explication

PS : c'est là où voit que l'aide delphi est vraiment caca boudin

[Paul TOTH]

ATTENTION ! les classes sont déjà des pointeurs !!!

@mon_instance c'est un pointeur sur un pointeur !

Code :

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

1
2
3
4
5
6
7
8
9
10
var
 ma_liste:TList;
 mon_instance:TMaClasse;
begin
 ma_liste:=TList.Create;
 mon_instance:=TMaClasse.Create;
 ma_liste.Add(mon_instance);
 
 TMaClasse(ma_liste[0]).Champ1...
end;

[delphidebutant]

ATTENTION ! les classes sont déjà des pointeurs !!!

AAh ben un truc dont je n'avais pas conscience

ce qui est bizarre, c'est que :

ma_liste.Add(mon_instance) permet au compilo de savoir quelle est la taille de l'objet pointé, puisque mon_instance est explicite.

Donc, on ne devrait pas être obligé de mettre TMaClasse( ..), dans la ligne

TMaClasse(ma_liste[0]).Champ1...

ou un truc m'échappe

[tourlourou]

soit une liste de pointeurs, chacun peut pointer sur un type de donnée différent, donc à toi de savoir quel pointeur correspond à quel type.

quand on loge un pointeur dans la liste, on passe une adresse en sachant à quel objet elle correspond, mais quand on la récupère, on ne récupère qu'une adresse, sans savoir ce qui y est stocké.

c'est donc juste l'adresse de l'objet que l'on stocke dans la liste, ou l'adresse du booléen, ou celle d'une chaîne, d'un entier...

si tu dois loger un seul type de données, autant dériver un T(Object)List et surcharger ses méthodes pour qu'elles se chargent de transtyper.

[rsc]

ce qui est bizarre, c'est que :
ma_liste.Add(mon_instance) permet au compilo de savoir quelle est la taille de l'objet pointé, puisque mon_instance est explicite.
Donc, on ne devrait pas être obligé de mettre TMaClasse( ..),

Même si la taille était stockée (ce qui sauf erreur de ma part est le cas pour TobjectList, mais pas TList), ça ne déterminerait pas la structure de l'objet.

Maintenant, rien n'empêche effectivement d'imaginer que le fait d'affecter un pointeur à une variable (obligatoirement typée dans Delphi) effectue automatiquement le transtypage... Simplement, "c'est pas comme ça !"