ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

Pascal: Leer un fichero de texto

Ejemplo básico de cómo leer todo el contenido de un fichero de texto, usando Pascal

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo básico de cómo leer todo el contenido *)
(*  de un fichero de texto, usando Pascal *)
(* Lenguaje: Pascal *)
(* Compilador: FreePascal *)
(* Nivel: Básico *)
(* Disponible desde 28/06/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=154 *)


Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399
 program MuestraAutoexec;
 
 var
   fichero: text;                         (* Fichero de texto *)
   linea: string;                         (* Línea que leemos *)
 
 begin
   assign( fichero, 'C:\AUTOEXEC.BAT' );  (* Le asignamos el nombre *)
   reset( fichero );                    (* Lo abrimos para lectura *)
   while not eof( fichero ) do          (* Mientras que no se acabe *)
     begin
     readln( fichero, linea );               (* Leemos una línea *)
     writeln( linea );                       (* y la mostramos *)
     end;
   close( fichero );                      (* Se acabó: lo cerramos *)
 end.