Bonjour

J'ai un probléme pour la lecture d'un fichier file of .... , voici la partie ou j'encode les données ds mon fichier.

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
               assign (nb, 'id') ;
               reset (nb) ;
               read (nb, id) ;
               close (nb) ;
               rewrite (nb) ;
               id := id + 1;
               write (nb, id) ;
               assign (clt, 'ls_clt') ;
               reset (clt) ;
               client[id].id := id ;
               client[id].clit := nom ;
               client[id].pre := prenom ;
               Seek(clt,FileSize(clt)) ;
               write(clt, client) ;
               close (nb) ;
               close (clt) ;
Puis Arrive les problemes, j'ai une procedure qui lit le nom en donnée, ce nom est donné comme parametre à la fonction ci dessous...le rôle de cette fonction est de trouve l'id du fichier mais j'ai une erreur 202


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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
function op_clt (var nom : string) : string ;
var clt : file of t_client ;
    nb  : file of integer ;
    id, i  : integer ;
    etat   : byte ;
    client : t_client ;
 
    c, v, pre, p   : string ;
         begin
              chdir ('client') ;
              assign (clt, 'ls_clt') ;
              reset (clt) ;
              i := 1 ;
              etat := 0 ;
              while not  EOF(clt) do
                  Begin
 
                       c := client[i].clit ;
                       if (c = nom) then
                          Begin
                          if  (etat = 1) then
                              Begin
                                   write ('Le Prenom : ') ;
                                   readln (pre) ;
                                   while not EOF(clt) do
                                         Begin
                                              p := client[i].pre ;
                                              if (p = pre) then
                                                 Begin
                                                      str((client[i].id), v) ;
                                                 End ;
                                              i := i + 1 ;
                                         End ;
                              End ;
                              Str((client[i].id), v) ;
                              etat := etat + 1 ;
                          End ;
 
                       i := i + 1 ;
                  End ;
              op_clt := v ;
              if (etat = 0 ) then
                 writeln ('Nom de client inconnu.') ;
         End ;
Comment regle cette erreur 202 ?

Merci