PDA

Ver la Versión Completa : Variable a nivel de Proyecto


GerTorresM
03-09-2012, 18:03:22
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 :



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

kapcomx
03-09-2012, 19:03:03
yo las declaro en el datamodule sin problema y las puedo llamar desde cualquier formulario.

Saludos....:cool:

marcoszorrilla
03-09-2012, 19:44:23
Yo para este propósito utilizo una Unit que le llamo Global.Pas, ahí guardo:Variables, procedimientos, funciones de tipo general que voy a utilizar en todo el proyecto.

Un Saludo.

GerTorresM
03-09-2012, 21:38:44
kapcomx y Marcos


Le agradezco su tiempo, me inclino por la respuesta de Marcos