Controlar Nivel de Acesso

public
{ Public declarations }
function ff_int_Pegar_Nivel_Acesso(): Integer;
function ff_str_Pegar_Apelido_Usuario(): String;
procedure ff_voi_Especificar_Usuario(ff_str_usuario_apelido: String ; ff_int_nivel_acesso: Integer);

//==============================================================================
procedure TFrm_Princiapal.ff_voi_Especificar_Usuario(ff_str_usuario_apelido: String ; ff_int_nivel_acesso: Integer);
begin
self.ff_str_apelido_usuario:= ff_str_usuario_apelido;
elf.ff_int_nivel_acesso:= ff_int_nivel_acesso;
self.SBar_Principal.Panels[0].Text:= 'user: [ ' + ff_str_usuario_apelido + ']';
self.SBar_Principal.Panels[1].Text:= 'nivel: [' + inttostr(ff_int_nivel_acesso) + ']';
end;
//==============================================================================
function TFrm_Princiapal.ff_int_Pegar_Nivel_Acesso(): Integer;
begin
result:= self.ff_int_nivel_acesso;end;
//==============================================================================
function TFrm_Princiapal.ff_str_Pegar_Apelido_Usuario(): String;
begin
result:= self.ff_str_apelido_usuario;end;
//==============================================================================