Continue a program after it gets an error... 1

[brutteforcce]

I have a list with the names of possible files that I want to work with. If it reaches at an inexistent file the program should do something and after that it should continue to the next files from the list. I don't know how can I make it go on after it returns an error because it didn't find a file.

 

[feherke]

Hi

  [b]const[/b] nrlis=3;
        lis:[b]array[/b][1..nrlis] [b]of[/b] string=([i]'first.txt'[/i],[i]'second.txt'[/i],[i]'third.txt'[/i]);
  [b]var[/b] fil:text;
      str:string;
      i:byte;
[b]begin[/b]
  i:=1;
  [b]while[/b] i<=nrlis [b]do begin[/b]
    write([i]'trying to read file '[/i],i,[i]' : '[/i],lis[i],[i]'... '[/i]);
    assign(fil,lis[i]);
    [green][b]{$I-}[/b][/green]
    reset(fil);
    [green][b]{$I+}[/b][/green]
    [b]case[/b] ioresult [b]of[/b]
      0:[b]begin[/b]
        close(fil);
        writeln([i]'Ok'[/i]);
        i:=nrlis;
      [b]end[/b];
      2:writeln([i]'File not found'[/i]);
      3:writeln([i]'Path not found'[/i]);
      [b]else[/b] writeln([i]'Error accured'[/i]);
    [b]end[/b];
    inc(i);
  [b]end[/b];
[b]end[/b].

Feherke.

http://rootshell.be/~feherke/

 

[brutteforcce]

Thanks a lot!!!