Pascal/Turbo Pascal - Ayuda con un programa de texto :(

   
Vista:

Ayuda con un programa de texto :(

Publicado por Naim (1 intervención) el 01/05/2017 04:55:33
Hola, antes que nada gracias por leerme, estoy haciendo un programa que tiene que tiene que mostrar a la pantalla archivos .txt en Pascal y no se como hacerlo, si me pudieran ayudar por favor, lo agradecerìa bastante.

Hice uno pero no creo que estè muy bien.
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

Ayuda con un programa de texto :(

Publicado por David (170 intervenciones) el 01/05/2017 09:58:08
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Uses CRT;
 
var
  n,linea : string;
  f : text;
 
begin
  clrscr;
  Writeln('Introduzca el nombre del archivo a leer');
  readln(n);
  assign(f,n);
  {$i-}reset(f);{$i+}
  if ioresult<>0 then
    begin
      Writeln('Error al abrir el archivo o el archivo no existe. Pulse una tecla para continuar...');
      readkey;
      halt(0);
    end
  else
    While not eof(f) do
      begin
        clrscr;
        readln(f,linea);
        writeln(linea);
      end;
 
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