Discussion :

[F.Victoire]

Salut!

Est-ce que quelqu'un sait comment faire pour instancier une seule fois un champs dans une classe qui elle est instanciée plusieurs fois (le champs est partagé entre tous les objets de cette classe) ? Comme cela se fait en Java avec le mot clé Static.

Merci pour votre aide.

Fabrice.

[e-ric]

Salut

Tu peux habiller une propriété avec des méthodes de classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TMaClasse = class
private
  class function GetMaProp: TLeType;
public 
  property MaProp: TLeType read GetMaProp;
end;
 
class function TMaClasse.GetMaProp: TLeType;
begin
// Code d'accès à l'objet
End;

Attention : Cette solution ne garantit pas l'unicité de l'objet accédé par MaProp mais il est indépendant d'une instance de TMaClasse en particulier.

cdlt

e-ric

[Pascal Jankowski]

En complément, tu peux également consulter ce sujet récent.

[F.Victoire]

Salut

Tu peux habiller une propriété avec des méthodes de classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TMaClasse = class
private
  class function GetMaProp: TLeType;
public 
  property MaProp: TLeType read GetMaProp;
end;
 
class function TMaClasse.GetMaProp: TLeType;
begin
// Code d'accès à l'objet
End;

Attention : Cette solution ne garantit pas l'unicité de l'objet accédé par MaProp mais il est indépendant d'une instance de TMaClasse en particulier.

cdlt

e-ric

J'ai essayé cette façon de faire.
Mais si j'écris dans mon code TMaClasse.MaProp, cela plante à la compilation avec l'erreur 'Method identifier expected'.
Les propriétés ne peuvent pas donc être accéder de cette manière.
Si je créé une méthode de classe pour accéder à cette propriété, cela non plus n'est pas possible.

Quelqu'un aurait-il une idée ?

[Pascal Jankowski]

Cela ne peut pas être associé à une propriété. Par contre comme le code l'exemple ci-dessous convient parfaitement.

Code :

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

1
2
3
4
5
6
tmyclass=class
  private
  public
    class function GetMaProp: string;
  end;

implémentation

Code :

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

1
2
3
4
5
class function tmyclass.GetMaProp: string;
begin
  Result := 'test';
end;

A l'exécution

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := tmyClass.GetMaProp;
end;

Me renvoit bien le mot 'Test' dans mon composant edit1.

Et si j'instancie ma classe, et fait appel à la méthode de classe je récupère encore la valeur 'Test'.

Code :

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

1
2
3
4
5
6
var myClasse: tmyclass;
...
 
  myClasse := tmyclass.Create;
  edit2.Text := myClasse.GetMaProp;

Cordialement