Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-10-2018
elrayo76 elrayo76 is offline
Miembro
 
Registrado: ene 2004
Ubicación: En la tierra, por eso mis archivos en la tierra y no en la nuebe...
Posts: 290
Poder: 21
elrayo76 Va por buen camino
Restringir uso directo de una clase delphi

Buenas amigos,


Necesito que me den una mano. Tengo una clase que tiene metodos de clase y no quiero que utilicen la clase directamente, sino desde la variable que hace referencia a esta.


Código Delphi [-]
type
  TClase = class
  end;


var
  Clase: TClase  // Esta variable es la que quiero que usen, en lugar de llamar a TClase directamente.


¿Existe alguna forma de hacer esto?


Saludos,
El Rayo
__________________
Si tienes una función o procedimiento con diez parámetros, probablemente hayas olvidado uno
Responder Con Cita
  #2  
Antiguo 21-10-2018
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.911
Poder: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Para ello debes usar un singleton.
__________________
El malabarista.
Responder Con Cita
  #3  
Antiguo 22-10-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Realmente no sé si estoy entendiendo el sentido de hacer eso, pero no creo que usar singleton logre el efecto que buscas. Claramente te impediría crear dos instancias de la clase pero esta continuaría siendo visible y por tanto podrías utilizar su nombre de forma directa...

Una chapuza para limitar el ámbito del nombre de la clase podría ser declarar la clase en la interface de una unidad:
Código Delphi [-]
unit UnitClass;

interface

type
  TClase = class
  private
    FCaption: string;
    //...
  public
    //...
    property Caption: string read FCaption write FCaption;
  end;

implementation

end.

La variable en otra:
Código Delphi [-]
unit UnitVar;

interface

uses UnitClass;

var
  Clase: TClase;

implementation

initialization
  Clase := TClase.Create

end.

Y solo incluir la unidad que declara la variable:
Código Delphi [-]
...
implementation {$R *.dfm}


uses UnitVar;

{ No podrían acceder a TClase por que:
var
  Clase2: TClase;  // identificador no declarado
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Clase.Caption := 'Hola a todos';
  ShowMessage(Clase.Caption);
end;

end.
Pero como te dije arriba, no sé si estoy captando la idea...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 22-10-2018
elrayo76 elrayo76 is offline
Miembro
 
Registrado: ene 2004
Ubicación: En la tierra, por eso mis archivos en la tierra y no en la nuebe...
Posts: 290
Poder: 21
elrayo76 Va por buen camino
Gracias por las respuestas.


Lo que pretendo hacer en realidd es lo siguiente


Código Delphi [-]
type
   TCLase = class
   public
       class procedure ResolverAlgoritmo;
       class function OtraFuncion: Integer;
   end;


var
   Clase: TClase;


Luego dentro de cualquier unit donde tenga que usar la clase antes creada que en lugar de llamar a


Código Delphi [-]


TClase.ResolverAlgoritmo;  // Que no se pueda hacer esto directamente.



Clase.ResolverAlgoritmo;  // Que solo se pueda hacer esto para llamar a los métodos de clases de la clase creada.


Saludos
__________________
Si tienes una función o procedimiento con diez parámetros, probablemente hayas olvidado uno
Responder Con Cita
  #5  
Antiguo 22-10-2018
juniorSoft juniorSoft is offline
Miembro
 
Registrado: abr 2005
Posts: 178
Poder: 19
juniorSoft Va por buen camino
Hola,

Por el ejemplo que das,


Código:
TClase.ResolverAlgoritmo;  // Que no se pueda hacer esto directamente.



Clase.ResolverAlgoritmo;  // Que solo se pueda hacer esto para llamar a los métodos de clases de la clase creada.

Los métodos de clase como su nombre lo indican es para llamarlos utilizando la clase no la instancia de la clase; si deseas hacer esto solo con declarar el método en la sección Public de la clase sin la palabra reservada class funcionaria la segunda instrucción que colocas; ahora bien si lo que requieres es que solo se pueda haber una instancia de la clase en ese caso si tendrías que realizar el singlenton.


Saludos,
Responder Con Cita
  #6  
Antiguo 22-10-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por elrayo76 Ver Mensaje
Luego dentro de cualquier unit donde tenga que usar la clase antes creada que en lugar de llamar a...
Si no quieres que se utilicen métodos de clase, ¿porqué no los eliminas?
Los métodos de clase sirven justo para ejecutarlo directamente sobre la clase (como su nombre iindica). Convierte esos procedimientos de clase en procedimientos normales y listo.
Tal vez me estoy perdiendo algo, pero definir una cosa para dotarle de la "característica A" y luego intentar prohibir el uso de la "característica A", no tiene sentido.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 23-10-2018 a las 09:29:01.
Responder Con Cita
  #7  
Antiguo 22-10-2018
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Convendría que explicaras qué pretendes hacer o porqué pretendes hacerlo, o qué esperas lograr o evitar con eso. Porque tal como lo planteas no hace mucho sentido. Para poder usar

Código Delphi [-]
Clase.ResolverAlgoritmo;

la variable clase debe estar instanciada, esto es, estarías accediendo a un método de clase desde una instancia particular, lo cual no hace mucho sentido. Además, el sólo hecho de tener una variable de tipo TClase hace que TClase sea pública por lo que nada impedirá que se pueda importar la unidad que la define y se acceda, por ende, a TClase.

Quizá lo que estás buscando es más bien una interfaz, que te permite exponder los métodos sin exponer el objeto que los implementa, pero tendrías que aclarar.

// Saludos
Responder Con Cita
  #8  
Antiguo 22-10-2018
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Poder: 21
gatosoft Va camino a la fama
De acuerdo con todos... No es claro el obejtivo de lo que quieres. ¿qué es lo que intentas proteger?, ¿qué quieres ocultar?, ¿Por qué quieres evitar que mencionen la clase? ,por que hasta ahora no has mencionado la protección del código, sino la forma de llamar el método.
Responder Con Cita
  #9  
Antiguo 22-10-2018
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por roman Ver Mensaje
[...]qué pretendes hacer o porqué pretendes hacerlo, o qué esperas lograr o evitar con eso[...]
Cita:
Empezado por gatosoft Ver Mensaje
[...]¿qué es lo que intentas proteger?, ¿qué quieres ocultar?, ¿Por qué quieres evitar que mencionen la clase?[...]

¡Habla ya!

// Saludos
Responder Con Cita
  #10  
Antiguo 22-10-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por roman Ver Mensaje
...
¡Habla ya!
Hasta la remera con R...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
delphi 2009 no imprime directo al puerto martita Impresión 2 13-01-2010 00:52:32
clase que contiene otra clase definida de forma posterior astwin OOP 5 20-02-2009 12:26:55
Crear acceso directo en delphi 6 jagjag Varios 1 12-12-2008 02:41:45
Crear acceso directo en delphi!! oracle Varios 3 26-07-2005 17:21:53
¿Cómo puedo llamar al método heredado de una clase que no es el ancestro directo? sarackganda OOP 4 15-12-2003 23:19:49


La franja horaria es GMT +2. Ahora son las 00:46:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi