Abrir archivos y leer en Pascal

[novatillo]

Buenas programando pascal:

Program leer;
Uses Crt;
Var
texto:text;
Begin
Assign(texto,'prueba.txt');
Append(texto)
WriteLn(texto,'Hola prueba');
Read(texto);
close(texto);
End.


Escribir escribe perfecto, pero leer, no me muestra en pantalla nada. ¿Alguien sabe por qué?


Venga, gracias. Saludos.

[LuismanueL]

hey novatillo no se muestra nada en pantalla porque la instruccion writeln(texto,'hola prueba'); lo esta escribiendo directo al archivo... solo deberas añadir writeln(hola prueba); para qe tambien lo muestres en pantalla...

en caso quieras crear el archivo texto directamente del pascal utiliza la instruccion Rewrite(texto);

[novatillo]

Pero por ejemplo, en el archivo prueba.txt, hay muchos mensajes, y me gustaría que mediante una opción me lo imprimiera todo en pantalla.

Saludos y gracias Luis Manuel :)

[LuismanueL]

lo que tendrias qe hacer es recorrer todo el archivo osea reseteas el archivo reset(archivo) y dices que miestras no seas fin de archivo osea algo asi while not eof(texto) do y lees la primera linea como cadena imprimes en pantalla y empieza con la siguiente linea es un bucle.... solo parara hasta que encuentre el fin del archivo, bueno no se si mas o menos tienes la idea sino me pasas la voz nuevamente...

obviamamente para tienes que declarar una variable strign para almacenar toda la primera linea y despues la siguiente.... OJO cada linea debe de tener no mas de 255 caracteres porque la variable string solo te soporta eso... si tiene mas de 255 la unica solucion a mi parecer seria tener que leerlo caracter por caracter.... pero bueno no te rayes mucho...

suerte con el programita