• Sábado 20 de Abril de 2024, 00:17

Autor Tema:  Pequeña Duda  (Leído 1116 veces)

gladiator96

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Pequeña Duda
« en: Sábado 17 de Noviembre de 2007, 13:25 »
0
Hola, estoy haciendo un programa y una de las cosas que tengo que hacer es leer caracter a caracter y  luego extraer algunos caracteres que me pide el ejercicio,tengo una duda, necesitaría hacer un bucle while que englobe todo el programa y que vaya desde que se comienza hasta el final del fichero, como podría hacerlo? , por lo demas el programa se hacerlo solo me falta eso.

Gracias.

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Pequeña Duda
« Respuesta #1 en: Sábado 17 de Noviembre de 2007, 15:04 »
0
hay una funcion que te devuelve Verdadero si se ha tocado el final del fichero.
Es:
Citar
function EOF(F: File): boolean;
Se usa asi:
Código: Text
  1.  
  2. //hay que asignar y abrir el archivo primero de la misma forma
  3. //que se hace siempre, Assign, Reset, etc...
  4. while not EOF(miArchivo) do
  5. begin
  6.    Leer archivo;
  7. end;
  8.  
  9.  

Saludos

gladiator96

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Re: Pequeña Duda
« Respuesta #2 en: Sábado 17 de Noviembre de 2007, 22:50 »
0
muchas gracias ^^! de verdad :D

Ya me funciona el programa :)