Ver Mensaje Individual
  #1  
Antiguo 03-09-2012
Avatar de GerTorresM
GerTorresM GerTorresM is offline
Miembro
 
Registrado: nov 2005
Ubicación: Tunja - Boyacá
Posts: 210
Reputación: 21
GerTorresM Va por buen camino
Cool Variable a nivel de Proyecto

Hola a tod@s

Tengo la siguiente dudita:

Existe una forma en la cual yo pueda declarar una variable en el archivo del proyecto y poder utilizar la misma en todos los formularios, para mi caso puntual deseo almacenar el usuario y la fecha de trabajo e hice lo siguiente :


Código Delphi [-]
program miEjemplo;

uses
  Forms,
  SysUtils


Var
    UsuarioSistema : String;
    FechaSistema : TDate;


begin
  UsuarioSistema:= '';
   FechaSistema:= Date;
  Application.Initialize;

  //Configuracion Regional - Date
  DateSeparator:= '/';
  ShortDateFormat := 'dd/mm/yyyy';
  Application.UpDateFormatSettings := false;
 
 //Configuracion Regional - Number
  DecimalSeparator := '.';
  ThousandSeparator := ',';

  Application.Title := 'Programa Ejemplo';
  Application.CreateForm(TFPortada, FPortada);
  Application.CreateForm(TDMModuloDatos, DMModuloDatos);
  FPortada.Show;
  FPortada.Refresh;
  Application.CreateForm(TFClave, FClave);
  FClave.Show;
  Application.Run;
end.

y para el caso una vez se abre el formulario de Clave Guardar la información una vez validada la conexión


agradezco de antemano la ayuda y colaboración


Cordilamente




gertorresm
Colombia
Responder Con Cita