Gravando uma string em uma variável
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
Curtidas 0
Respostas
Pedro Dias
14/11/2003
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..
GOSTEI 0
Ricardo.vano
14/11/2003
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
GOSTEI 0