Référence à un objet créé dans un With

Bonjour à tous,


Petite question pas bloquante en soi mais m'intéressant pour la culture générale :)

J'ai l'habitude de faire des truc comme ça :

Code:

---

1 2 3 4 5 6 7 8

with TIBSQL.Create(self) do begin database := dm.db; ... ... free; end;

---

Mais est il possible de récupérer l'objet lui même créé sur la ligne With pour par exemple s'en servir comme paramètre dans un appel de fonction, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

with TIBSQL.Create(self) do begin database := dm.db; FonctionQuiVaBien(Mon_Objet_IBSQL_Ici) ... ... free; end;

---

Merci d'avance de vos lumières.

Emmanuel.

PS : Dur dur de faire une recherche sur le mot clef with dans le forum ! :(

non, sauf a utiliser une méthode de l'objet qui retournerait Self, sinon tu es obligé de déclarer une variable que tu reprends dans ton WITH

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type TMyIBSQL=class(TIBSQL) public function this:TMyIBSQL; end;   function TMyIBSQL.this:TMyIBSQL; begin Result:=Self; end;   begin with TMyIBSQL.Create(self) do begin database := dm.db; FonctionQuiVaBien(this) ... ... free; end; end;

---

Merci de ta réponse,

ça confirme un peu ce que j'imaginais.

Je vais donc continuer à créer des variables pour les rares fois où j'en ai besoin, mais je retiens cette idée de fonction qui retourne self.

Emmanuel.

Bonjour,

Sans avoir recours à l'héritage (la méthode décrite par Paul), on peut étendre une classe en utilisant les "Class Helper".
Il faut par contre disposer d'une version de Delphi au moins égale à 2005.

Le but est ici d' étendre la class TObject avec la méthode "this" de la manière suivante:

Code:

---

1 2 3 4

type thisClassHelper = class Helper for TObject function this:TObject; end;

---

Code:

---

1 2 3 4 5 6

implementation   function thisClassHelper.this: TObject; begin Result := Self; end;

---

En revanche, il faudra la transtyper lors de son utilisation.

Code:

---

1 2 3 4 5 6

with TMaClasse.Create do try TMaClasse(this).maMethode; finally Free; end;

---

"This" est maintenant accessible à toutes les classes de ton projet étant donné que toute classe descent de TObject.

Personnellement, je te conseillerais surtout de ne jamais utiliser WITH.

Ca nuit à la lisibilité du code, surtout quand tu commences à en avoir deux ou trois imbriqués et que le with se trouve 50 lignes plus haut que celle que tu es en train de lire.

En plus le débogueur est complètement perdu sur les with.

@Pascal
Merci de ces précisions, cette méthode à en effet l'air sympathique.
Je regarderais surement de plus prés ces Class Helpers dont il est question lorsque (si) je changerai mon D6 pour plus récent.

@Franck
Il peut y avoir en effet de problèmes de lisibilité avec un usage immodéré.
Mais c'est quand même bien pratique quelquefois :)
Pour plus de lisibilité, une bonne indentation et un expert IDE comme Castalia font des merveilles cependant.

Par contre ta remarque sur le compilateur qui se perdrait avec les with est-elle valable même si on ne les imbrique pas ?
Si oui, j'aimerai bien avoir plus de précisions sur les problèmes potentiels.

Merci.
Emmanuel.

Ce n'est pas un problème de compilateur que soulevait Franck mais un problème de déboggeur, en effet en mode debug il est tout simplement impossible d'évaluer les champs ayant attrait à l'objet encapsulé par width ce qui peut s'avérer assez gênant.

Pardon, j'avais lu compilateur !
Comme quoi on devrait relire plusieurs fois les messages. :oops:

Oui, en effet, c'est ce coté gênant avec le with qui ne m'incite pas non plus à l'utiliser très souvent.

Bon, en tout cas j'ai eu mes réponses concernant la première question. "Problème" Résolu.

Emmanuel.