Discussion :

[alheuredudejeuner]

Bonjour,

J'ai besoin de trouver les doublons d'un objet dans un Treview.

Plus précisément, plusieurs objets de mon arbre pointe sur un unique objets.

Il se trouve que pour une raison que cherche mon unique objet ( singleton ) perd son unicité

J'ai besoin de supprimé le doublon pour afficher une même instance de mon objet.

questions

Existe-t-il un moyen un moyen de balayer l'ensemble des objets d'un form ?

Code :

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

1
2
3
 
     monObjet := TMonObjet .create;
     monObjet := TMonObjet .create;

J'ai deux instances de mon objets mais je n'accède qu'à une seule . Existe-t-il un moyen unique d'identifier chaque instance de mon Objets ?

des idées ?

Crldt

[tourlourou]

Bonjour,

Ton problème n'est pas clair, ou je l'ai mal compris.

Je comprends qu'à un moment, ton TreeView contient plusieurs références au même objet.
Celui-ci serait un singleton, dont le constructeur renverrait donc en principe une instance fraîchement créée au premier Create, puis cette même instance aux Create ultérieurs (ou une exception) ?
Mais comme tu évoques une perte d'unicité, il renverrait (parfois) des instances différentes ?
Auquel cas, il faudrait chercher la classe, mais pas les objets dans le TreeView.
Tu parles de Form, donc s'agirait-il d'un composant ? Balayer alors Form.Components de ComponentCount-1 à 0.

(On peut aussi imaginer d'ajouter les objets destinés au TreeView à un TObjectList pour en identifier grâce à un IndexOf la présence préalable, et éviter au besoin de les y ajouter en double.)

[alheuredudejeuner]

Bonjour

Je comprends qu'à un moment, ton TreeView contient plusieurs références au même objet.

Mon Objet devrait être un singleton, mais ce n'est pas le cas.

Il est rendu unique par un nettoyage des doublons juste après le démarrage de la form.

Plus tard dans la vie de mon appli, j'ai besoin de pouvoir retrouver toutes les instances de mon Objet pour un ID précis pour enlever les doublons. Et je ne sais pas faire.

Je ne fois pas comment chercher et identifier un objets simple dans les composants d'une form voir de l'application.

Même si MonObjet est créer deux fois sans free de la première Delphi doit bien avoir un index de référence sur les objets créés dynamiquement.

Crldt

[skywaukers]

Bonjour,

si j'ai bien compris tu a créé un objet et tu as perdu sa référence. Dans ce cas là je crains qu'il n'y ai pas de solutions pour le retrouver. Pour moi tu as 2 solutions :

- mettre toute tes instances dans une liste d'objet, ainsi tu pourra la parcourir aisément,
- implémenter un vrai partern singleton, qui cache la méthode create afin d'éviter qu'il ne soit créé sauvagement.

@++
Dany

[Invité]

Je suis du même avis que skywaukers, une TObjectList ou tu surcharges la méthode Add pour vérifier que l'objet à ajouter n'est pas déjà présent

[tourlourou]

Même si MonObjet est créer deux fois sans free de la première Delphi doit bien avoir un index de référence sur les objets créés dynamiquement.

Non ! Delphi ne conserve pas systématiquement de référence sur les objets : seul ton code peut le faire...
Delphi ne conserve automatiquement que la référence des objets dont un autre est le owner, cad l'objet chargé de les libérer lors de sa propre libération. Une fiche conserve ainsi dans sa propriété Components ceux dont elle est propriétaire. Mais rappelons qu'un objet peut être créé dynamiquement en laissant nil son owner, et qu'il nous revient par code à gérer sa destruction.

Donc je plussoie l'idée de modifier l'objet pour qu'il respecte le pattern singleton, ou celle d'une liste d'objets pour conserver leurs références et détecter les doublons.

[ALWEBER]

Code :

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

1
2
     monObjet := TMonObjet .create;
     monObjet := TMonObjet .create;

Lorsque tu utilise cette action monObjet contient l'adresse de la création. Donc dans ton cas tu crées deux objets mais monObjet contient l'adresse de la dernère création. le type TMonObjet doit être hérité par exemple de TComponent pour pouvoir avoir accès à la propriété OWNER qui serait dans ce cas l'objet à parcourir. Voir exemples dans l'aide sur "ComponentCount"