Objeto global a la aplicación

[noob]

Empezado por Delphius

Hola noob, está bien. La cuestión es que puedes tener tantas variables como necesites. Pero si te fijas, todas "apuntan" a un mismo objeto. Por tanto, se trata de una única instancia que es referenciada desde diversos puntos.

Pensé que se creaba más de una instancia, no cai en eso.

Muchas gracias a todos por dar estas ricas versiones del patrón Singleton.

Me gusta la opción de acceder al objeto global mediante la función GetInstance y no tener que llamar al método constructor.

Empezado por roman

debe haber un objeto de la clase, y éste se crea usando el constructor privado (que basta declarar, no hay nada necesario que implementar).

Dos dudas roman:

1) Cuando en la sección de inicialización de tu unidad Singl haces: Instance := TSingleton.CreateInstance; ¿se crea realmente una instacia? Lo digo porque el método constructor CreateInstance no está implementado.

2) ¿Los métodos GetAuthor y SetAuthor del interfaz ISingleton no deberían de ser virtuales y abstractos para luego ser redefinidos en TSingleton?

Saludos.

[roman]

Empezado por noob

1) Cuando en la sección de inicialización de tu unidad Singl haces: Instance := TSingleton.CreateInstance; ¿se crea realmente una instacia? Lo digo porque el método constructor CreateInstance no está implementado.

De hecho, TObject.Create está también implementado como un método vacío:

Código Delphi [-]
constructor TObject.Create;
begin
end;

No importa qué constructor uses, el mero hecho de serlo hace que el compilador inserte entre el begin y la primera instrucción (si la hay) una llamada a la función _ClassCreate que es la encargada de construir la base del objeto (mediante el método NewInstance).

En otras palabras, el efecto de Create y de CreateInstance es exactamente el mismo: ambos tienen implementación vacía, pero por estar etiquetados como constructores generan la llamada a _ClassCreate.

El único objetivo de introducir CreateInstance es el de invalidar el constructor público para que no pueda usarse externamente.

Empezado por noob

2) ¿Los métodos GetAuthor y SetAuthor del interfaz ISingleton no deberían de ser virtuales y abstractos para luego ser redefinidos en TSingleton?

En una interfaz el uso de la directivas virtual y abstract sería redundante, porque, de hecho, todos los métodos de una interfaz son virtuales y abstractos por naturaleza. Virtuales porque su implementación dependerá precisamente de la clase que implemente la interfaz y abstractos porque una interfaz no implementa nada por sí sola.

// Saludos

[noob]

En una interfaz el uso de la directivas virtual y abstract sería redundante, porque, de hecho, todos los métodos de una interfaz son virtuales y abstractos por naturaleza. Virtuales porque su implementación dependerá precisamente de la clase que implemente la interfaz y abstractos porque una interfaz no implementa nada por sí sola.

Pensé que era necesario indicarlo.

Roman más dudas:

1) Siempre me gusta separar cada clase en una unidad distinta, en el caso de la unidad Singl2 ¿lo has hecho en una sola unidad a propósito o lo has hecho así por tenerlo todo más visible a la hora de verlo en el foro?

2) ¿No puedo acceder al método Author por medio de una propiedad tal que así?

Código Delphi [-]
property PropAuthor: String read GetAuthor
                            write SetAuthor;

3) Otra cosa, para usar la instancia desde fuera del interfaz, sería así, ¿verdad?

Código Delphi [-]
ShowMessage(Singl2.GetInstance.GetAuthor);

Siento preguntar cosas que tal vez sean muy básicas.

Gracias.

[Kipow]

Interesante el tema, me tomo la libertad de contestarte tus ultimas preguntas noob.

1. Singl2 es la version 2 del ejemplo que roman coloco.
2 y 3. La forma de acceder al singleton seria en todo caso asi

Código Delphi [-]
uses 
   Singl2;

begin
     ShowMessage(GetInstance.Author);   
end

.

ya que GetInstance es una funcion que te retorna la clase. talvez un nombre mas practico podria ser

Código Delphi [-]
function Singleton : TSingleton

Que fue como Al Gonzalez lo recomendo en su propia version.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por kikin

mira la guia de estilo

¿Y a qué viene eso?
Que conste que no estoy en contra de revisarla de vez en cuando¡, pero tanta insistencia... 1 y 2

Perece que se te quedó el teclado "atascado"...