Restringir uso directo de una clase delphi

[elrayo76]

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.



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

[mamcx]

Para ello debes usar un singleton.

[ecfisa]

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:

unit UnitClass;

interface

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

implementation

end.


La variable en otra:

unit UnitVar;

interface

uses UnitClass;

var
Clase: TClase;

implementation

initialization
Clase := TClase.Create

end.


Y solo incluir la unidad que declara la variable:

...
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 :)

[elrayo76]

Gracias por las respuestas.


Lo que pretendo hacer en realidd es lo siguiente



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





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

[juniorSoft]

Hola,

Por el ejemplo que das,


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,

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

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. :(:(

[roman]

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


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

[gatosoft]

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.

[roman]

[...]qué pretendes hacer o porqué pretendes hacerlo, o qué esperas lograr o evitar con eso[...]

[...]¿qué es lo que intentas proteger?, ¿qué quieres ocultar?, ¿Por qué quieres evitar que mencionen la clase?[...]

https://fotos.subefotos.com/ef2df78313e99a6fd004d58fd59ad1f9o.png

¡Habla ya!

// Saludos

[ecfisa]

...
¡Habla ya!

Hasta la remera con R... :D:D:D

Saludos :)