SoloCodigo

Programación General => Pascal => Mensaje iniciado por: .:Kioon:. en Miércoles 12 de Enero de 2005, 20:31

Título: Ayuda Acceso A Archivos-ficheros
Publicado por: .:Kioon:. en Miércoles 12 de Enero de 2005, 20:31

Hola a tod@s.

Tengo un problema que desde hace unos dias no me deja dormir. Me estoy familiarizando con los archivos en Pascal y he creado el siguiente programa.

PROGRAM LeerFecha;

VAR

ArchivoTexto : TEXT;
CadenaFecha : STRING;

BEGIN

ASSIGN(ArchivoTexto,'FECHA.TXT');
RESET(ArchivoTexto);

READLN(ArchivoTexto,CadenaFecha);
WRITELN(ArchivoTexto);

CLOSE(ArchivoTexto);

END.

Como se puede observar es muy sencillito. Lo tengo guardado en una carpeta, llamada fecha y dentro de ella el fichero FECHA.TXT

El programa me compila correctamente, pero cuando le doy a RUN me da el siguiente error.

Runtime error 105 at 0x004010A1
0x004010A1 main, line 14 of c:/fecha/leerfecha.pas

En el fichero de texto tengo puesto solo:

Miercoles 12/1/2005

Gracias a tod@s y un saludo!!

:blink:

Título: Re: Ayuda Acceso A Archivos-ficheros
Publicado por: Ruben3d en Domingo 16 de Enero de 2005, 03:55

Hola.

El fallo es que has abierto el archivo para lectura, e intentas escribir en él con el WRITELN de la línea 14. A ver si te has equivocado y querías poner CadenaFecha en vez del descriptor del archivo, para mostrarla por pantalla.

Un saludo.

Ruben3d

Título: Re: Ayuda Acceso A Archivos-ficheros
Publicado por: Enko en Domingo 16 de Enero de 2005, 18:20

Citar

READLN(ArchivoTexto,CadenaFecha);
WRITELN(ArchivoTexto);

mhhhhhh.... Lees desde el archivo una variable de tipo string llamada CadenaFecha y escribes en la pantalla ArchivoTexto cuando en realidad quieres visualizar la CadenaTexto

Código: Text

 
ReadLn(ArchivoTexto, CadenaFecha);
WriteLn(CadenaFecha); {muestra lo que leiste desde el archivo}