TList, TObjectlist, class et pointer

**Galet** · 07/01/2018, 16h53

Bonjour à tous,

Sous Delphi Tokyo.
Après de nombreuses utilisation de tList, je butte sur certaines longueurs (et peut-être mauvaises pratiques) et tente de m'améliorer en regardant les tObjetList et la création de class.
Mon but est d'avoir des listes d'objets plus ou moins complexes dont certains éléments peuvent pointer vers des éléments d'autres listes d'objets. J'espère aussi, par la création de classes, éviter de toujours répéter de nombreuses lignes de code.

Si je créé un objet contenant un integer et un string (tcObjet), et un tObjectList de cet objet (tcObjetListe=tObjectList<tcObjet>), est-il possible de récupérer le pointeur d'un objet tcObjet ?
@TcObjetListe[Index] et ^TcObjetListe[Index] ne me retourne pas le bon pointeur ou déclenche un défaut.

Peut-être que je me fais des nœuds au cerveau en tentant d'utiliser le tObjectList sans l'automatisme qui en fait son intérêt...

Qu'en pensez-vous ?
Existe-t-il d'autres objets (je pense au tCollection) qui permettraient de résoudre ce type de problème ?

Merci par avance pour vos avis...

**Papy214** · 07/01/2018, 18h57

Chercher du côté des "generics" pour faire des TList<Integer>, TList<Single>, etc.

**Paul TOTH** · 08/01/2018, 09h11

Envoyé par Galet

Si je créé un objet contenant un integer et un string (tcObjet), et un tObjectList de cet objet (tcObjetListe=tObjectList<tcObjet>), est-il possible de récupérer le pointeur d'un objet tcObjet ?
@TcObjetListe[Index] et ^TcObjetListe[Index] ne me retourne pas le bon pointeur ou déclenche un défaut.

sous Delphi les classes SONT des pointeurs, donc pas d'opérateur @ ou ^ et tout va bien

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
 
var
  l: tcObjectListe;
  o: tcObject;
begin
  l := tcObjectListe.Create;
  o := tcObject.Create;
  l.Add(o);
  o := tcObject.Create;
  l.Add(o);
 
  o := l[0];  // le premier
  l[1].Propriété_De_tcObject := ... // accès au deuxième
 
  l.Free;
end;