Fórum Gravando uma string em uma variável #195054
14/11/2003
0
Como faço para armazenar uma string em uma váriavel x, de modo que se o seu valor for alterado em tempo de execução, esse novo valor fique
gravado no lugar do antigo, mesmo depois que o progama é encerrado, para que essa string poder ser usada como password?
gravado no lugar do antigo, mesmo depois que o progama é encerrado, para que essa string poder ser usada como password?
Coelhopirado
Curtir tópico
+ 0
Responder
Posts
14/11/2003
Pedro Dias
Eu fiz algo parecido, guardo as informações personalizada por usuário.
Ou vc trabalha com arquivo texto
ou com uma tabela de banco de dados.
Dentro do executável nunca vi falar..
Ou vc trabalha com arquivo texto
ou com uma tabela de banco de dados.
Dentro do executável nunca vi falar..
Responder
Gostei + 0
20/11/2003
Ricardo.vano
Crie uma tabela com dois campos: nome e senha.
Depois faça a busca do nome e senha que a pessoa digitar na tabela criada da seguinte forma:
procedure TFormLogin.ButtonOKClick(Sender: TObject);
var
Nome, Senha: string;
begin
EditNome.SetFocus;
Nome := EditNome.text;
Senha:= EditSenha.Text;
DataModule.TabelaDeSenhas.Open;
if DataModule.TabelaDeSenhas.Locate(´User_Name;Senha´,
VarArrayOf([Nome,Senha]),[]) then
begin
Application.CreateForm(TFormPrincipal, FormPrincipal);
FormLogin.Visible:= False;
end
else
Showmessage(´Nome ou senha incorreta!´);
este código deve ser inserido no botão OK do formulário em que o usuário deverá digitar a senha. O método Locate busca o nome digitado dentro da TabelaDeSenhas. Se encontrar cria o formulário principal do programa. Se não encontrar, emite um aviso informando não ter encontrado.
Espero ter ajudado... :D
Depois faça a busca do nome e senha que a pessoa digitar na tabela criada da seguinte forma:
procedure TFormLogin.ButtonOKClick(Sender: TObject);
var
Nome, Senha: string;
begin
EditNome.SetFocus;
Nome := EditNome.text;
Senha:= EditSenha.Text;
DataModule.TabelaDeSenhas.Open;
if DataModule.TabelaDeSenhas.Locate(´User_Name;Senha´,
VarArrayOf([Nome,Senha]),[]) then
begin
Application.CreateForm(TFormPrincipal, FormPrincipal);
FormLogin.Visible:= False;
end
else
Showmessage(´Nome ou senha incorreta!´);
este código deve ser inserido no botão OK do formulário em que o usuário deverá digitar a senha. O método Locate busca o nome digitado dentro da TabelaDeSenhas. Se encontrar cria o formulário principal do programa. Se não encontrar, emite um aviso informando não ter encontrado.
Espero ter ajudado... :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)