La siguiente función devuelve true si el fichero que se le pasa por parametro formal a la función no existe y escribe en una linea de pantalla el error ‘EL FICHERO NO EXISTE’.
FUNCTION ERROR_DE_FICHEROS(VAR fich1 : text):BOOLEAN;
error : BOOLEAN;
BEGIN
error:=FALSE;
WHILE error = FALSE DO
BEGIN
ASSIGN(fich1, 'fichero1.txt');
{$I-}
RESET(fich1);
{$I+}
IF IORESULT <> 0 THEN
BEGIN
error:=TRUE;
BREAK;
END
ELSE
BEGIN
CLOSE(fich1);
BREAK;
END;
END;
IF error = TRUE THEN
BEGIN
WRITELN('EL FICHERO NO EXISTE');
END;
ERROR_DE_FICHEROS:=error;
END; { FIN ERROR_DE_FICHEROS }
Observese que para la reutilización de este código será conveniente modificar la sentencia de asignación del fichero, ASSIGN(fich1, ‘fichero1.txt’), cambiando el nombre del fichero de este ejemplo por el nombre de un fichero del cuál el usuario quiera verificar su existencia.
