estou testando meu algoritmo do delphi, estou criando um login com 3 tentativas, caso esteja certa abri um outro formulario, caso contrario digita a senha novamente, se errar 3 vezes fecha o sistema.
procedure TForm1.Button1Click(Sender: TObject);
var x,senha,cont:integer;
begin
senha:=StrToInt(Edit1.Text);
if senha = 123 then
begin
Label1.Caption:='senha correta';
if Form2 = nil then
Form2:=TForm2.Create(self );
Form2.ShowModal;
end;
end
else
for x:=1 to 3 do
begin
Label1.Caption:='senha incorreta';
Edit1.SetFocus;
cont:=x+1;
end;
Form1.Close;
end;
end.
só que não está dando certo, alguém de vocês poderiam em ajudar?!
Pergunta
wld
estou testando meu algoritmo do delphi, estou criando um login com 3 tentativas, caso esteja certa abri um outro formulario, caso contrario digita a senha novamente, se errar 3 vezes fecha o sistema.
procedure TForm1.Button1Click(Sender: TObject);
var x,senha,cont:integer;
begin
senha:=StrToInt(Edit1.Text);
if senha = 123 then
begin
Label1.Caption:='senha correta';
if Form2 = nil then
Form2:=TForm2.Create(self );
Form2.ShowModal;
end;
end
else
for x:=1 to 3 do
begin
Label1.Caption:='senha incorreta';
Edit1.SetFocus;
cont:=x+1;
end;
Form1.Close;
end;
end.
só que não está dando certo, alguém de vocês poderiam em ajudar?!
Editado por wldLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.