faça algo assim
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
suasenha,kpress:string;
begin
suasenha:='ooo';
for i:=1 to 3 do begin
kpress:=inputbox('Logon','digite a senha','');
if kpress='suasenha' then begin
break;
showmessage('senha ok');
end else begin
showmessage('senha errada');
end;
end;
end;
----- Original Message -----
From: "dionatanhenrique" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, April 13, 2005 4:03 PM
Subject: [delphi-br] Tentativas
Pessoal tenho uma tela de login, gostaria de saber se alguem tem um
codigo ou alguma soluçao de contagem do numero de tentativas nao
exeder 3, no login? Valeu!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.7 - Release Date: 12/04/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
