Pascal/Turbo Pascal - Abrir un archivo y si no existe crea uno.

He de hacer un procedimiento que abra un archivo con un nombre determinado y si el archivo no existe que cree uno nuevo con el nombre introducido. Supongo que se hará con una estructura selectiva pero lo que no se es como decir a Pascal IF <archivo no existe> THEN. ¿Cómo se expresa <archivo no existe>?.

Si IOResult=0 entonces el archivo existe y si IOResult=1 entonces el archivo no existe, ¿verdad?.

Aveces ta manda error si tratas de abrir un archivo protegido contra escritura, por lo que informaría erróneamente que "no existe" el archivo. Por éso es bueno verificar qué código de error retorna IOResult (Valor entre 0 y 255).

Veamos una modificación a lo que hice antes. A=Archivo y F=Variable de tipo TEXT; Att=Variable que contendrá el atributo actual del archivo.

Assign(F, A);
{$I-}
GetFAttr(F, Att);
SetFAttr(F, Archive);
Reset(F);
{$I+}
If (IOResult>0) then
Begin
Att := Archive;
{$I+}
ReWrite(F);
{$I-}
If (IOResult>0) then
Begin
WriteLn('Imposible crear archivo.');
Halt(1);
End; {If}
......
......
......
......
Close(F);
SetFAttr(F, Att);

Saludos ;-)