Classe : requête depuis une variable de type String ?

Bonjour, j'aimerais savoir s'il est possible d'appeler une classe tel que :

Code:

---

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

interface type Geekemon = class nomGeekemon : String; public constructor create(nom)   var GeekemonPossede1 : String;   implementation constructor Geekemon.create(nom : String); begin nomGeekemon := nom; end;   begin p1 := Geekemon.create('Inspecteur Gadget'); GeekemonPossede1 := 'p1'; // <------- writeln(GeekemonPossede.nomGeekemon); // <------- ICI // <------- end.

---

En effet, le programme est tous sauf complet mais c'est une simplification d'un long programme avec pas mal d'units, alors j'ai simplifié.

Auriez vous une solution ? Je me doute que ce n'est pas aussi simple, mais je pense que vous voyez ce que je veux dire.

Merci :mrgreen:

C'est à peu près comme ça que cela fonctionne. Personnellement je préfère utiliser le "strict" private/protected et utiliser mes property, F pour les variables privées et T pour les types. Tu as l'air de t’emmêler les pinceaux avec ta variable globale de type string et ta classe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

type TGeekemon = class strict private FsNomGeekemon : string; public constructor Create(sNom : string); property sNomGeekemon : string read FsNomGeekemon; end;   constructor TGeekemon.Create(sNom : string); begin FsNomGeekemon := sNom; end;

---

Si tu veux utiliser ton "p1" il faut qu'il soit du type TGeekemon.

Code:

---

1 2 3 4 5 6 7

var p1 : TGeekemon; begin p1 := TGeekemon.Create('Inspecteur Gadget'); WriteLn(p1.sNomGeekemon); end;

---

ou encore si tu veux utiliser ta variable string :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var GeekemonPossede1 : string; // [...] var p1 : TGeekemon; begin // création de ton objet TGeekemon, on le stock dans la variable p1 p1 := TGeekemon.Create('Inspecteur Gadget'); // récupération du nom via la property sNomGeekemon qui pointe vers FsNomGeekemon GeekemonPossede1 := p1.sNomGeekemon; WriteLn(GeekemonPossede1); end;

---

Ok, j'avais clairement pas envie d'introduire un type, mais soit xD

Bah en fait la classe a beaucoup plus de paramètres que ça, et en plus elle avais décidé de pas fonctionner avec un public ^^