Pascal: Comprobar la existencia de un fichero

Ver si existe un fichero

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Ver si existe un fichero *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Básico *)

(* Disponible desde 17/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Sean Palmer *)

(* Web original: http://www.kd5col.info/swag/FILES/0024.PAS.html *)

uses
  dos;
 
function existeFichero(var s : string) : boolean;
begin
  existeFichero := fSearch(s, '') <> '';
end;
 
begin
  if existeFichero('datos.dat') then
    writeLn('Existe!);
end.