Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-03-2005
alfredosg19 alfredosg19 is offline
Miembro
 
Registrado: ene 2005
Ubicación: Barcelona
Posts: 91
Poder: 20
alfredosg19 Va por buen camino
Salir de un While

Hola de nuevo, estoy haciendo una pantalla de validación de usuarios, y he puesto un While para que se vaya a leer a un archivo mientras el usuario no sea correcto (para ir comparando), el problema es que quiero que en el momento que encuentre un usuario válido salga del While (y que no siga leyendo el archivo), ¿se podría hacer esto?. Gracias de antemano por vuestra ayuda.
__________________
"La perseverancia es el camino del éxito"
Responder Con Cita
  #2  
Antiguo 16-03-2005
rafita rafita is offline
Miembro
 
Registrado: ago 2003
Ubicación: Cuenca- España.
Posts: 309
Poder: 22
rafita Va por buen camino
Hola compañero,

Código:
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.
__________________
Rafita.
Responder Con Cita
  #3  
Antiguo 16-03-2005
alfredosg19 alfredosg19 is offline
Miembro
 
Registrado: ene 2005
Ubicación: Barcelona
Posts: 91
Poder: 20
alfredosg19 Va por buen camino
Gracias por la solución.

Una vez más gracias Rafita.
__________________
"La perseverancia es el camino del éxito"
Responder Con Cita
  #4  
Antiguo 16-03-2005
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 22
AGAG4 Va por buen camino
Usa...

Haz probado usando Abort ó Exit ?????

Que tengas buen día.
Responder Con Cita
  #5  
Antiguo 17-03-2005
keyboy keyboy is offline
Miembro
 
Registrado: oct 2004
Posts: 367
Poder: 21
keyboy Va por buen camino
Cita:
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:

Código:
var
  Encontrado: Boolean;

begin
  Encontrado := false;
  while not Encontrado do
  begin
    Encontrado := BuscarUsuario;
    if Encontrado then
      break;
  end;
end;
bye
Responder Con Cita
  #6  
Antiguo 17-03-2005
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 22
AGAG4 Va por buen camino
asi es

Me falto el Break;....
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:48:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi