Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   salir de un while si se cumple condicion ??? (https://www.clubdelphi.com/foros/showthread.php?t=20571)

chelejuan 19-04-2005 18:42:44

salir de un while si se cumple condicion ???
 
Buenas tengo esto :

while not EOF(f1) do
begin
Readln(f1, ch1);
a:= ch1;
a:=Copy(a,86,93);
a:= copy(a,1,8);

if codigofactura = a then
begin
existeenfichero := 1;

end;

end;

Si se cumple que codigo factura = a entonces deberia salirse del bucle ya que he comprobado lo que necesitaba. ¿Como podria hacer eso?.

marcoszorrilla 19-04-2005 18:44:50

Código Delphi [-]
   while not EOF(f1) do
   begin
           Readln(f1, ch1);
           a:= ch1;
           a:=Copy(a,86,93);
           a:= copy(a,1,8);
   
           if codigofactura = a then
           begin
                   existeenfichero := 1;
   Exit;
           end;
   
   end;

Un Saludo.

chelejuan 19-04-2005 18:53:19

Eso no me vale ya que me saca de todo, yo necesito que salga del bucle y continue con los siguientes calculos, ya que necesito la variable existeenfichero.

¿Como seria?

Venga gracias por el intento :D

dec 19-04-2005 18:58:07

Utiliza la instrucción Break
 
Hola,

Prueba a utilizar la instrucción "break" cuando sea preciso salir del bucle en cuestión.

__hector 19-04-2005 19:32:03

y por que no pones la condicion como parte de la definicion del bucle?

Código:

while not EOF(f1) and not (codigofactura=a) do
begin
Readln(f1, ch1);
a:= ch1;
a:=Copy(a,86,93);
a:= copy(a,1,8);
...


chelejuan 20-04-2005 14:44:34

Se puede poner la condicion ??? juas si es asi perfect con eso ya me vale.

Gracias voy a probarlo ahora mismo XD


La franja horaria es GMT +2. Ahora son las 18:34:52.

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