Discussion :

[wapin]

Bonjour,

Je souhaite créer un objet depuis son nom.

Ex : j'ai l'infos dans une variable maClassNameEnString = 'TBidule';

Est-ce qu'il serait possible de créer un objet directement depuis maClassNameEnString?

En gros un truc comme maClassNameEnString.Create
(Lol je sais que ça ne marche pas ça. C'est pour faire comprendre l'idée.)

Pour le moment je dois passer par une factory qui fait :
If maClassNameEnString = 'TBidule' then
Result := TBidule.Create

Je voudrai donc m'affranchir de cette factory.

Est ce que quelqu'un à une idée?

merci d'avance.

[sjrd]

Merci d'utiliser la fonction de recherche. Quelques messages plus bas :
Création d'objet dynamique (à partir du nom de la classe)

[wapin]

Oui je viens de lire le message.

On y conseil d'utiliser :
Instance := GetClass('TUnObjet').Create;

Pour utiliser cette méthode il faut d'abord faire un RegisterClass(AClass : TPersistent)

Ce qui m'embête dans l'histoire c'est que mon objet hérite de TObject eet que ça pose des problèmes qu'il soit en TPersistent.

Est-ce qu'il y aurait une astuce?

[ShaiLeTroll]

C'est à partir du Persistant qu'il y a publication des propriétés, cela n'a pas d'incidence, je te conseille même de partir du TComponent pour bénéficier de la Gestion de la mémoire via un Owner, c'est très pratique ...

Sinon, tu peux faire ton propre RegisterClass, voir la construction de MetaClasse ou Référence de Classe, avec "class of"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
type
  TMachinType = (mtTruc, mtBidule, mtChose);
 
const
  Machin_NAMES: array[TMachinType] of string = ('Truc', 'Bidule', 'Chose');
 
const
  Machin_CLASSES: array[TMachinType] of TClass = (TObjectTruc, TObjectBidule, TObjectChose);
 
 
class function TMachinManager.GetEchantMachin(const MachinName: string): TClass;
var
  iMachin: TMachinType;
begin
  for iMachin := Low(TMachinType) to High(TMachinType) do
  begin
    if SameText(MachinName, Machin_NAMES[iMachin]) then
    begin
      Result := Machin_CLASSES[iMachin];
      Exit;
    end;
  end;
 
  Result := nil;
end;

L'avantage de cette construction, via un tableau de constantes chaines, c'est que tu peux afficher les libellés à l'utilisateur, et réagir à sa demande, cela reste plus clair que d'afficher le ClassName, utilise par exemple pour lister des Maladies ou Virus, qui contiennent des caractères accentués qu'il faut afficher pour le logiciel mais interdit dans un nom de classe ... mais on peut aussi passer par ClassName directement si il n'y a que manipulation en interne ...