Jump to content

Session Variables


lpaulo

Recommended Posts

Hello!

 

How (or better, WHERE) can I to declare a global variable "sessioned"?

 

A global variable to be used in all forms/units and different for each session?

 

I want to use it like USERNAME for my authentication engine. Each session have a diferent user, and this variable will be used in all forms (to test grants).

 

Thanks for help.

 

Luiz

Link to comment
Share on other sites

You can declare them  inside mainmodule

 

type
  TUniMainModule = class(TUniGUIMainModule)
    procedure UniGUIMainModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    globalVariableForEachSession: String;
  end;
 

 

Link to comment
Share on other sites

Hello!

 

Sorry my ignorance, but I am doing something wrong.

 

I declared the variable in MainModule:

 

 

type
  TUniMainModule = class(TUniGUIMainModule)
  private
    { Private declarations }
  public
     gNome : String;
     { Public declarations }
  end;
...

 

 

 

And I am trying to use the variable in MainForm:

 

 

uses
  uniGUIVars, MainModule;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  gNome := UniEdit1.Text;
end;
 

 

I try to use:

 

gNome := UniEdit1.Text;

 

or

 

MainModule.gNome := UniEdit1.Text;

 

The error is the same:

 

[DCC Error] Main.pas(40): E2003 Undeclared identifier: 'gNome'

 

What I am doing wrong?

 

thanks.

 

Luiz

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...