En esta entrada voy a intentar hacerla lo más práctica posible.
Vamos a ver como implementar en Delphi, de manera muy sencilla, el patrón de diseño Singleton.
Lo primero que vamos a hacer es crear una nueva aplicación.
Para ello, lo que hacemos es pulsar en File–> New –>VCL Forms Application – Delphi.
Posteriormente nos ponemos sobre el Project Manager y pulsamos con el botón derecho en Modeling Support
Una vez realizado esto, nos aparecerá una pantalla donde nos preguntará qué proyecto es el que quieres soportar.
Una vez realizado esto, lo siguiente es pulsar sobre la pestaña Model View y hacer doble click sobre unit1
Cuando tengas esto realizado, te aparecerá una pantalla llena de recuadros y con las clases que dispones en esa unidad, en mi caso tenemos un TForm.
Pulsamos sobre el botón derecho para entrar en la opción “Create by Pattern” y buscamos el tipo de patrón que necesitemos, en nuestro caso, el Singleton.
Una vez realizado, obtendremos el código fuente necesario para poderlo utilizar en nuestro fuente.
Leave a Reply