Pascal/Turbo Pascal - Funcion q determina si un archivo existe

Busco una funcion booleana q se ponga a true si detecta q un archivo ya existe...
gracias de antemano por su ayuda

no sabria decirte una predeterminada, pero aqui te mando una:

type
archivo:file of integer; {archivo de enteros o lo que sea}

function busca_archivo(var f:archivo):boolean;
begin
{$I-}
reset(f);
{$I+}
if ioresult <> 0 then {no encontro el archivo}
busca_archivo:=false;
else {encontro el archivo}
begin
close(f);
busca_archivo:=true;
end;
end;

begin
assign(f,´elarchivo.dat´); {puede tener la extension que quieras, o el directorio que quieras}
if(busca_archivo(f))then
write(´se encontro el archivo´)
else
write(´no se encontro el archivo´);
end.

espero que te sea de utilidad
saludos
Cristina

hola amigo, si si existe esa funcion, buscala en la ayuda como FSEARCH, devuelve el nombre completo del archivo si lo encuentra,
de lo contrario devuelve una cadena vacia.
y es bastante efectiva.

program encontre_el_archivo;
var s:pathstr;
begin
s:=fsearch(nombredelarchivo,Getenv(PATH));
if s<>´´then archivo_encontrado:=true
else
archivo_encontrado=false;
end.

ASI DE SENCILLO

Gracias, esta e sirve con solo un par de modificaciones...
hasta luego y thanks

el ioresult esta contemplado tb en pascal estandar o solo en turbo pascal?

Ioresult n oesta contemplado en pascal estandar, estoy trabjando sobre otra forma de conseguirlo, os informare si lo consigo, si se os ocurre algo...
chao