Discussion :

[jbat]

Bonjour.


La fonction ClassName retourne le nom de la classe réelle de l'objet self, mais...

Existe-t-il une fonction pour récupérer le nom de la classe "de la procedure en cours d'execution" et non de la classe réelle de l'objet instancié en cours d'execution. C'est à dire que si mon objet est d'une classe dérivée, pouvoir récupérer le nom de la classe comportant le code en cours de déroulement.

Merci

[anapurna]

salut

Code :

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

(sender as TCompoment).name

c'est ca que tu veut ?

@+ Phil

[slimjoe]

Code :

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

(sender as TCompoment).name

Ce code retourne le nom de l'objet en cours et non celui de la classe.

[jbat]

Oui, d'autant plus que je n'ai pas de Sender...
C'est dans le Créate que je souhaite obtenir cette information.

Pour illustrer ma demande, on peut faire une comparaison. C'est comme si je voulais lister dans l'ordre de l'arbre d'héritage les différentes classes à parcourir (peu importe le sens) pour créer mon objet.

[sjrd]

Je crains que non. Pour la bonne et simple raison que ce que tu demandes est absurde. Le code qui se déroule, c'est le code écrit, qui commence par une certaine déclaration

Code :

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

procedure TLaClasse.NomProc

Le nom de la classe est assurément constant : il s'agit de TLaClasse.

Je peine à trouver une utilité à ce que tu cherches à obtenir... D'autant plus que tu l'as déjà sous la main.

[slimjoe]

Je peine à trouver une utilité à ce que tu cherches à obtenir....

Je suis d'accord : quel est l'objectif ?

[jbat]

Je crains que non. Pour la bonne et simple raison que ce que tu demandes est absurde. Le code qui se déroule, c'est le code écrit, qui commence par une certaine déclaration

Code :

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

procedure TLaClasse.NomProc

Le nom de la classe est assurément constant : il s'agit de TLaClasse.

Je peine à trouver une utilité à ce que tu cherches à obtenir... D'autant plus que tu l'as déjà sous la main.

Que ma demande ne puisse pas être réalisée par une fonction déjà existante, ce n'est pas grave... C'est déjà une réponse acceptable à ma question. Si elle n'existe pas, je ferai moi même le code nécessaire.

Ma demande n'est pas absurde ... Surtout que vous ne savez pas encore pourquoi je veux cette info.

Alors pour info, j'ai un projet avec beaucoup de classes et beaucoup d'héritage. Je voudrait "tracer" le passage du curseur dans un fichier log. Une solution serait simplement de créer dans chaque Create une string avec codée "en dur" l'information que je cherche à obtenir. Mais cette string serait différente pour chacune de mes classes, ce qui représente pas mal de travail pour moi. Je me demandais si par hasard, une fonction déjà existante ne pourrait pas faire ça à ma place de façon à ce que je n'ai plus qu'un copier/coller à faire dans chaque créate.

[anapurna]

salut

sais tu que tu peut recenser tes class a l'aide

Code :

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

1
2
RegisterClasse(AClasses: array of TPersistentClass);
ou procedure RegisterClass(AClass: TPersistentClass);

afin de pouvoir utilise le bon classname


@+ Phil

[anapurna]

salut

je sais bien mais classname lui retourne le nom de la classe pas le nom de l'instance
donc j'en ai deduit qu'il chercher l'autre nom celui qui est definie par le name
en fait il cherche le nom de l'objet qui genere l'evenement d'ou ma reponse


@+ Phil