Bonjour
Je cherche à implémenter le pattern "Singleton" dans mon appli.
J'ai besoin de changer la visibilité de mon constructeur de classe pour le mettre en "private" ou "protected" et déleguer la construction de mon singleton à une methode de classe du genre "getInstance()".
En clair je souhaite faire ceci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
TMaclasse=class
 private
  ///Redéfinition du constructeur de classe
  constructor create();reintroduce;
 public
  ///Crée une seule instance de TMaclasse ou renvoie celle déja créée
  class function getInstance():TMaClasse;
  .....
end;
Mon problème est-que le constructeur create() reste visible en dehors de l'unité contenant TMaclasse.
Quelqu'un a une idée de comment je peux faire ça?...ou est-ce possible de changer la visibilité de mon constructeur;
Je précise que je suis sous Delphi 2005.

Merci