Discussion :

[bAss_deZigner]

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

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
 
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

[Invité]

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 :

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

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 :

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

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 :

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

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;

[bAss_deZigner]

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 ^^