Cita:
Empezado por Paoti
Estará bien esta forma de realizarlo, digo, no lo he puesto en practica en un ambiente de producción.
|
Yo no acabo de verle la lógica. Usas una clase Global para acceder a una variable, que en lugar de estar dentro de la clase está fuera.
(1) No le veo ventajas (seguramente es que yo no las veo), pero las hay, entre lo que has puesto tú y esto:
Código Delphi
[-]
TGlobales = class private
FUsuario : string; <<<<====
class function GetUsuario : string;
class procedure SetUsuario(const Value: string);
protected
public
property Usuario : string read GetUsuario write SetUsuario;
published
end;
(2) Lo segundo que no veo es qué ventajas tiene en este caso usar la clase, respecto a esto:
Código Delphi
[-]
unit uGlobales;
interface
var Usuario : string;
implementation
end.
Y cuando la uses poner
Código Delphi
[-]
Caption := uGlobales.Usuario;
...
uGlobales.Usuario := 'pepe';