Salir de un While

[rafita]

Hola compañero,

var intentos : Integer;
	 encontrado : Boolean;

....
Intentos:=0;
Encontrado:=False;
While (not Encontrado) and (Intentos<3) do
begin
	if (TUsuarioUsuario.asstring=Edit1.Text) and (TUsuarioClave.asstring=Edit2.Text) then  // sustituye esto por una busqueda en tu base de datos (Query, Locate,...)
	   Encontrado:=True
	else
	   Inc(Intentos);
end;

if Encontrado then 
  // ---> Puede entrar 
else 
  // Ha superado el nº de intentos permitidos

Prueba con algo así.

Saludos.

[alfredosg19]

Una vez más gracias Rafita.

[AGAG4]

Haz probado usando Abort ó Exit ?????

Que tengas buen día.

[keyboy]

Empezado por AGAG4

Haz probado usando Abort ó Exit ?????

Que tengas buen día.

Ni abort ni exit sirven en este caso.

abort lanza una excepción silenciosa (sin mensaje) que al igual que
cualquier otra excepción saltará la ejecución de la aplicación hasta encontrar
un bloque try-except.

exit ocasiona que el flujo de la aplicación salga del procedimiento
desde donde se llama.

Así que, en ambos casos, se sale bastante más allá del ciclo while.

Quizá estabas más bien pensando en break que, en efecto, podría
usarse en este caso:

var
  Encontrado: Boolean;

begin
  Encontrado := false;
  while not Encontrado do
  begin
    Encontrado := BuscarUsuario;
    if Encontrado then
      break;
  end;
end;

bye

[AGAG4]

Me falto el Break;....