Evitar variables globales....

[roman]

¿No es de esos foreros míticos que por alguna razón que se pierde en la oscuridad del pasado salió del Club?

[[maeyanes]]

Yo recuerdo a JMR de las listas de discusión, cuando esto se manejaba por listas de distribución por email.


Saludos...

[marcoszorrilla]

JMR. José Manuel Rodriguez es el autor de las famosas "Trivial", también fue moderador del Club Delphi, fue una pena que se perdiera su concurso en este sitio, pero así son las cosas, hace un tiempo vi que estaba en la lista de FireBird, pero hace tiempo que no he vuelto a saber de él.

Un Saludo.

[Casimiro Noteví]

¿Y eso de las variables globales era un documento que escribió o fue algún post en algún foro?, por echarle un vistazo.

[marcoszorrilla]

Creo recordar que era un hilo normal en el que por algún motivo salio el tema de las variables y yo dije que las colocaba en el Menú.

Un Saludo.

[Paoti]

¡Hola Dudes!

Como ven este acercamiento.

Creando, por así decirlo una propiedad estatica de una clase, y asignarle su valor, que estará visible en todas las unidades (y por ende Forms) donde se requiera.

Espero el cógido sea más legible que mi explicación:


la unidad donde se almacenarán las propiedades globales, por así decirlo

Código Delphi [-]
unit uGlobales;

interface

type
TGlobales = class
private
    // procediminto y función para leer la varables
    // se antepone Class, para indicar que son métodos de clase y on de objeto
    class function GetUsuario : string;
    class procedure SetUsuario(const Value: string);
protected

public
  // Es una propiedad de clase y no de objeto, debido a que usa metodos de clase
  property Usuario : string read GetUsuario write SetUsuario;

published
  { published declarations }
end;

implementation

var
    FUsuario : string;


class function TGlobales.GetUsuario: string;
begin
      Result := FUsuario;
end;

class procedure TGlobales.SetUsuario(const Value: string);
begin
  FUsuario := Value;
end;

end.

Ahora, cuando quieras acceder al valor de la propiedad, o en su defecto asigarle un valor solo tienes que hacer lo sigiuente.

Código Delphi [-]
implementation

uses
  uGlobales;

......

// desde un formulario 2
procedure TForm2.btn1Click(Sender: TObject);
var
  myGlobal : TGlobales;
begin
  Caption := myGlobal.Usuario;
end;

......

// desde un formulario 1
procedure TForm1.btn1Click(Sender: TObject);
var
  myGlobal : TGlobales;
begin
myGlobal.Usuario := 'Paoti';
end;

Dudas, comentarios.

Estará bien esta forma de realizarlo, digo, no lo he puesto en practica en un ambiente de producción.


Gracias.

[roman]

A mi me parece muy bien. Esta es una forma de implmentar propiedades estáticas (simuladas) en una clase de Delphi. Creo que las versiones recientes ya admiten este tipo de propiedades.

// Saludos

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

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;   <<<<====

     // procediminto y función para leer la varables    
    // se antepone Class, para indicar que son métodos de clase y on de objeto     
    class function GetUsuario : string;     
    class procedure SetUsuario(const Value: string); 
  protected 
  public   
   // Es una propiedad de clase y no de objeto, debido a que usa metodos de clase   
   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';