PDA

Visualizza la versione completa : Controllare esistenza file da leggere


netarrow
19-05-2006, 18:29
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
20-05-2006, 11:31
if fileexists(nome_file) then ... ;

ciao
sergio

netarrow
20-05-2006, 15:33
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;
...


:ciauz:

mondobimbi
20-05-2006, 16:46
Originariamente inviato da netarrow
in che unit la trovo? cmq ho trovato il seguente sistema:


:ciauz:

SysUtils
in FrePascal

ciao
sergio

Loading