Discussion :

[TheFreeBerga]

Bonjour à toutes & à tous,

Je sais, le titre n'est pas des plus clairs. Je vais me rattraper avec un exemple de ce que je cherche :

Code :

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

1
2
3
4
var
  obj: TObject;
 
  obj := BuildObject( 'TButton', Self );

Bien sûr, il n'est pas question de faire un case of en testant toutes les classes .

Merci d'avance pour vos lumières

[e-ric]

Salut,

A ma connaissance, cela n'est pas possible directement d'une manière générale.
Pour les descendants de TPersistent, il existe une fonction FindClass, qui peut te rendre service.

Si tu travailles avec un ensemble de classes plus large que TPersistent, une idée pourrait être de créer un registre de classes indexé par leur nom (méthode ClassName), ce n'est pas très compliqué (c'est en gros ainsi que FindClass travaille) à faire mais cela peut être fastidieux s'il y a beaucoup de classes.

Quel est ton besoin exact ?

Cdlt

[anapurna]

salut ,

si la class est enregistré donc connue il y a moyen de créer dynamique un instance d'objet

Code :

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

1
2
3
 PerSistClass := GetClass('TBUTTON');
 if Assigned(PerSistClass) Then   
    Instance := TPersistentClass(PerSistClass).Create(Self);

[TheFreeBerga]

Bonjour et merci de vous penchez sur mon problème les amis

J'ai eu la réponse ici
La version courte: ce n'est pas possible.

En fait, je voulais m'éviter de caster quoi que ce soit, pas seulement par fainéantise mais surtout pour l’exhaustivité de la méthode.
Je suis bon pour un case of long comme un jour sans pain...

Bien sûr, si entre temps quelqu'un trouve une solution sans caster, je suis preneur !

[e-ric]

Salut

Supposons que la fonction BuildObject existe, son intérêt, dans l'optique d'éviter les cast, est nul. en effet on se retrouve en sortie avec un TObject (comme ton exemple d'illustration le montrait) sur lequel on ne peut pas directement faire grand chose, de là même, il devient difficile d'éviter un Cast.

Pourrais-tu définir plus précisément ton besoin ? est-ce limité à une famille particulière de classes ?

FindClass est un habillage de GetClass, avec exception, la réponse d'Anapurna rejoint donc la mienne, on ne peut traiter que des descendants de TPersistent.

Cdlt

[TheFreeBerga]

@e-ric:

Tout à fait d'accord avec toi sur le fait d'obtenir un TObject mais cela me suffit amplement.
Le but de tout ceci est d'utiliser tel quel un fichier .lfm qui contient le design d'une interface pour l'analyser et créer dynamiquement les objets qu'il contient...et ça fonctionne !
Je dois néanmoins caster quelque peu des propriétés comme un TStrings mais ça reste raisonnable.
Bien entendu, lors de la phase de création de l'objet, il s'agit là aussi de caster nommément le type d'objet désiré en fonction de son nom mais là encore, ça reste raisonnable.

Merci à tous pour votre aide