Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Variable a nivel de Proyecto (https://www.clubdelphi.com/foros/showthread.php?t=80084)

GerTorresM 03-09-2012 18:03:22

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

kapcomx 03-09-2012 19:03:03

dm
 
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

Gracias...
 
kapcomx y Marcos


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


La franja horaria es GMT +2. Ahora son las 22:51:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi