Ver Mensaje Individual
  #2  
Antiguo 11-05-2007
radaalvaro radaalvaro is offline
Miembro
 
Registrado: oct 2005
Ubicación: Santa Cruz - Bolivia
Posts: 163
Reputación: 19
radaalvaro Va por buen camino
instancias

karocs si es posible, el patron de Diseño Singleton hace eso.

Una aplicación práctica del Patron podria ser la siguiente.

Código Delphi [-]
Interface
type
TConexion = class
                 private
                   // AQUI TODOS LOS METODOS QUE NECESITES.  
                   class var Instancia :TConexion;
                 public
                   //AQUI TODOS LOS METODOS QUE NECESITES
                   Class Function DevuelveInstancia:TConexion;
                 end;
Implementation
 
Class Function TConexion.DevuelveInstancia:TConexion;
Begin
    if Instancia=nil then
        Instancia := TConexion.Create;
 
    result := Instancia;
 
   //Aqui se puede observar que solo se creara una instancia en caso de que 
   //la Varialble Instancia no este Instanciada, Si Instancia<> nil significa que 
   //alguien ya la creo entonces se devuelve la que ya esta creada.
End

Espero haber sido claro y no haberte enredado mucho.

Saludos.
Responder Con Cita