Controllare esistenza file da leggere

[netarrow]

ciao, devo fare per scuola un esempio coi file Text, scrivo su uno e stampo a console il contenuto di un altro; il problema è che quando uso la funzione reset su la variabile text se il file non esiste turbo pascal esce e da l'errore, io vorrei gestire questo errore e scrivere a console "File non trovato" o simili, ma non saprei come fare.

grazie ciao

[mondobimbi]

if fileexists(nome_file) then ... ;

ciao
sergio

[netarrow]

in che unit la trovo? cmq ho trovato il seguente sistema:

...
Assign(txtIn, 'a.txt');
{$I-}
reset(txtIn);
{$I+}
if IOResult <> 0 then
 writeln('Errore, file non trovato');
else
 begin
  ...
 end;
...

[mondobimbi]

Originariamente inviato da netarrow
in che unit la trovo? cmq ho trovato il seguente sistema:

SysUtils
in FrePascal

ciao
sergio