Pascal/Turbo Pascal - ficheros de texto

 
Vista:

ficheros de texto

Publicado por Pilar (5 intervenciones) el 02/11/2003 22:22:43
Hola!

¿Como puedo mostrar un fichero de texto por pantalla?,
Tengo este código:
While not eof()
Begin
read(f,c);
write(c);
endN

Pero no me lo muestra.
Me pueden ayudar porfavor?

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ficheros de texto

Publicado por Diego Romero (786 intervenciones) el 02/11/2003 22:50:46
Me parece que faltan un par de cosas en ese código, por empezar necesitas una variable de tipo Text que será el archivo lógico, luego asociar esa variable con el archivo físico, necesitarás además otra variable string a donde almacenar la línea de texto leída:
var
T: Text; { archivo lógico }
Linea: string; { linea de texto }
begin
Assign(T, 'Texto.txt'); { asocia el lógico al físico }
Reset(T); { Abre para lectura desde el principio }
while not eof(T) do { mientras no sea fin de archivo ... }
begin
ReadLn(T, Linea); { lee una línea }
WriteLn(Linea); { muestra la línea }
end;
Close(T); { cierra el archivo }
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Muchas gracias!!

Publicado por Pilar (5 intervenciones) el 02/11/2003 22:58:04
Hola Diego!!

Gracias por responderme. Ya lo he resuelto, es qeu como estaba manejando procedimientos, resulta que tenía un fichero auxiliar y el que al final tenía que leer, y de lista paso el auxiliar y no el que ya debia leer.
Tu sabes, despues de varias horas pensando las neuronas se cansan jajajaj.
Muchas gracias !
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar