salir de un while si se cumple condicion ???

[chelejuan]

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]

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]

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]

Hola,

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

[__hector]

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


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]

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

Gracias voy a probarlo ahora mismo XD