Discussion :

[Marc_3]

Bonjour,

Je fais référence à une ancienne discussion du forum nommée "Adresse d'une instance d'objet" pour ce post.

Il y est écrit que les noms d'instances objets sont en fait des pointeurs sur des instances objets en mémoire.
J’espère avoir compris.

Ce que je veux faire c'est utiliser d'anciens modules maison qui travaille sur des listes de pointeurs avec par exemple une commande d'insertion dans la liste comme en suivant :

Code :

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

1
2
3
procedure  insert_pointer  (var list_id        :  TLocalPtrList;
                                     given_pointer  :  pointer;
                                    var success        :  boolean);

Ici on utilise un type pointer.

Est-ce qu'il y aurait moyen de faire un cast ou autre chose pour que le nom de l'instance soit pris comme pointer par le programme?

Merci de votre aide.

[ShaiLeTroll]

Ton histoire de "nom de l'instance" est très étrange car Adresse d'une instance d'objet n'évoque pas cela !

Je crois que tu confonds tout simplement avec la propriété Name du TComponent et que l'on peut retrouver une instance via sa propriété Name via Onwer.FindComponent

Et oui, Delphi est bien fait, le nom de la variable en published est la même chose que la valeur de Name du TComponent car c'est le moyen qu'utilise le Gestionnaire de Flux (les DFM) pour associer une référence publié genre Edit1, Memo1 avec l'instance produite à partir de la DFM

Avec le code fourni, il n'y a que du procédural, donc aucune chance d'utiliser les RTTI ou les mécanisme du TComponent pour associer un "nom de l'instance" et une instance
il nous faut plus de code pour comprendre !

le var sur list_id de type TLocalPtrList me choque !
Si c'est un array of, c'est logique
Si c'est une TList, TObjectList ... c'est soit signe d'un manque de compréhension de la notion de "référence" (instance de classe) ou alors une construction de code étrange !

given_pointer, on ignore ce qu'il reçoit, cela peut être un @Integer, un @string, un @record, une "référence" ou pire @référence !

et pourquoi faire un var successet non pas une function ?

[tourlourou]

Ou alors, la question serait-elle : comment réaliser insert_pointer(MaListe, Memo1, Reussite); ?

[guillemouze]

Je pense que quand il parle de nom d'instance, c'est le nom de la variable.
Effectivement tu peux, mais utiliser les classes existantes serait peut etre mieux que de mettre des objets dans ta liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//insertion
insert_ptr(maListe, Pointer(monObjet), success);
 
//version plus objet :
TLocalPtrList = class(TObjectList)
... (spécificités) de ta liste
end;
 
...
var
  lst: TLocalPtrList;
begin
  success := lst.Add(monObjet) <> -1;
end;