Discussion :

[denokan]

Bonjour

je souhaite utiliser le resultat fourni par IOResult pour afficher un message d'erreur, mais impossible de trouver cette liste de codes et leur signification
j'ai bien trouvé cette page, mais le lien donné (liste.zip) est mort
même mon compilo ne m'affiche rien ... est-ce que quelqu'un saurait m'indiquer où trouver cette liste ?

[Alcatîz]

Bonjour !

Trouvé dans une vieille doc de Turbo Pascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   n:=IOResult;
   if n<>0 then
   begin
     writeln('Error encountered in reading file ');
     case n of
        2: writeln('File not found');
        3: writeln('Path not found');
        4: writeln('Too many open files');
        5: writeln('File access denied');
      100: writeln('Disk read error');
      101: writeln('Disk write error');
      150: writeln('Disk is write protected');
      152: writeln('Drive is not ready');
      154: writeln('CRC error in data');
      156: writeln('Disk seek error');
      157: writeln('Unknown media type');
      162: writeln('Hardware failure');
      else writeln('Various error');
     end;

[denokan]

[Eric Sigoillot]

T'as pas cherché longtemps

http://community.freepascal.org:1000.../ioresult.html

@++

[denokan]

en fait j'ai cherché en français, c'était une erreur de débutant

[Eric Sigoillot]

Ah oui mais va falloir qu'on te dise un truc aussi, qui pourrait te faire de la peine...
Tu sais, le Père Noël ? Ben, en fait... Il... ne fait pas de docs en Français !