9- Manejo de ficheros

Introducción a Delphi y Lazarus, por Nacho Cabanes

Si se sabe manejar ficheros en Pascal (Turbo Pascal o Free Pascal), se tiene buena parte del camino andado para manejarlos con Lazarus y/o Delphi.

Aun así, existen algunas pequeñas diferencias, debidas a que palabras como "close" o "assign" se usan también para realizar ciertas operaciones con elementos visuales, y "text" se puede referir al texto que muestra uno de estos elementos.

Las diferencias son:

Los ficheros de texto no se pueden declarar como "text": var fichero: text; Habrá que declararlos como "textFile": var fichero: textFile; Alternativamente, también se puede indicar que nos referimos al "text" que se menciona en la unidad "system", de la siguiente forma (que a mí me parece menos legible: var fichero: system.text;
De igual modo, para asignar un nombre físico a un fichero, no se puede usar "assign", sino "assignFile": AssignFile(ficheroEntrada, 'datos.txt');
Y lo mismo ocurre a la hora de cerrar un fichero: en vez de "close" se deberá usar "closeFile": CloseFile(ficheroEntrada);

Por tanto, un programita que leyera la primera línea de un fichero de texto sería:

Var
 fichero : textFile;
 frase: string;

begin
 AssignFile(fichero,'datos.txt');
 Reset(fichero);
 ReadLn(fichero, frase);
 WriteLn('He leido: '+frase);
 CloseFile(fchero);
end.

(por supuesto, en este ejemplo se debería comprobar que el fichero existe, en vez de intentar leer "a ciegas", pero es ya es "Pascal estándar").

Actualizado el: 09-05-2007 17:28

Introducción a Delphi y Lazarus

9- Manejo de ficheros

En los foros