[LG]Probleme lecture fichier file of ....

Version imprimable

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:

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:

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

Euh il me semble que ton code n'est pas très propre :S
Pourquoi ne pas passer le nom et le prénom directement en paramètre ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
function op_clt (nom,prenom:string):string; 
var clt : file of t_client ; 
      id, i  : integer ; 
      client : t_client ; 
      c, v, pre, p   : string ; 
      trouve:boolean;
      begin 
      chdir ('client') ; 
      assign (clt, 'ls_clt') ; 
      reset (clt) ; 
      trouve:=false;
      while ((not EOF(clt)) and (not trouve)) do 
      Begin 
      readln(clt,client); 
      if ((client.clit=nom) and (client.pre=prenom)) then
      begin
      trouve:=true;
      str(client.id,v);
      end;
      end;
      close(clt);
      if trouve then op_clt:=v else op_clt:='pas trouvé';
      end;

Je sais pas si ca va convenir mais c'est plus simple que ce que tu as fait !!

a+

Citation:
Envoyé par wormful_sickfoot
Euh il me semble que ton code n'est pas très propre :S
Pourquoi ne pas passer le nom et le prénom directement en paramètre ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 function op_clt (nom,prenom:string):string; var clt : file of t_client ; id, i : integer ; client : t_client ; c, v, pre, p : string ; trouve:boolean; begin chdir ('client') ; assign (clt, 'ls_clt') ; reset (clt) ; trouve:=false; while ((not EOF(clt)) and (not trouve)) do Begin readln(clt,client); if ((client.clit=nom) and (client.pre=prenom)) then begin trouve:=true; str(client.id,v); end; end; close(clt); if trouve then op_clt:=v else op_clt:='pas trouvé'; end;
Je sais pas si ca va convenir mais c'est plus simple que ce que tu as fait !!

a+
Voila, avec la fonction j'ai cette erreur et la ligne est surligne en vert : comment resoudre cette erreur ?

USER BREAK IN LINE 37

la fonction

Citation:

function op_clt (var nom : string; pren : string) : string ;
var clt : file of t_client ;

i : integer ;
c, v, p : string ;
begin
chdir ('client') ;
assign (clt, 'ls_clt') ;
reset (clt) ;
i := 1 ;
while not eof(clt) do
Begin
c := client[i].clit ;C CETTE LIGNE QUI EST SURLIGNE EN VERT
p := client[i].pre ;
if ((c = nom) And (p = pren)) then
Str(client[i].id, v) ;
End ;
op_clt := v ;
End ;

Le prog reste bloqué : je dois sortie à l'aide de CTRL+PAUSE.

Merci

10/11/2003, 18h59
M.Dlb

C'est normal, tu ne lis pas dans le fichier...
Tu devrais utiliser ma fonction sans trop la modifier je pense !
Le boolean trouve est indispensable sinon tu ne pourra pas vérifier si le nom du client existe dans le fichier...

a+
10/11/2003, 22h10
John_win

Citation:

Envoyé par wormful_sickfoot

C'est normal, tu ne lis pas dans le fichier...
Tu devrais utiliser ma fonction sans trop la modifier je pense !
Le boolean trouve est indispensable sinon tu ne pourra pas vérifier si le nom du client existe dans le fichier...

a+

merci à toi, j'avance doucement mais surement mais le fait est que j'ai toujours une erreur 202 : Stack Overflow et je ne sais pas comment la relge ? :cry:
10/11/2003, 22h16
charly

tu depace la piles memoires , il faut que tu revois a la baisse le nombre de variable allouer , et si c est pas possible que tu accedes a un autre type de memoire . par contre me demmende pas comment :?
10/11/2003, 22h20
M.Dlb

Pour résoudre cette erreur, tu peux utiliser la directive {$M}. Pour plus d'informations, regarde l'aide de ton compilateur, ou cherche des messages s'y référant dans le forum !

a+
10/11/2003, 22h23
M.Dlb

Pour information, si ton compilateur est bien configuré, tu ne devrais pas obtenir de telles erreurs... Cela veut peut-être dire que ton code n'est pas très propre, que tu utilises trop de variables, comme l'a dit Charly, ...
Revois ton code, et essaye de le solidifier !
a+
11/11/2003, 11h24
Alcatîz

Salut !

Pourrais-tu nous donner la déclaration de ton type t_client, s.t.p ?

Le fait de créer une variable dans une procédure ou dans une fonction consomme de l'espace dans la pile (dont la taille est relativement limitée).
Tandis que si tu la déclares comme variable globale, elle consommera de l'espace dans le segment de données.

Cette toute petite modification pourrait peut-être solutionner ton problème de débordement de pile ?
11/11/2003, 13h08
John_win
Citation:

Envoyé par Alcatîz

Salut !

Pourrais-tu nous donner la déclaration de ton type t_client, s.t.p ?

Le fait de créer une variable dans une procédure ou dans une fonction consomme de l'espace dans la pile (dont la taille est relativement limitée).
Tandis que si tu la déclares comme variable globale, elle consommera de l'espace dans le segment de données.

Cette toute petite modification pourrait peut-être solutionner ton problème de débordement de pile ?

Salut !!

voici le type
Code:

1 2 3 4 5 type t_lsclt = record id : integer ; nom : string[15] ; prenom : string[15] ; End ;
Le nom à changé car j'ai revu une bonne partie du prog sous les conseils de wormful_sickfoot...

En fait, la fonction consiste à :

- lire le nom et prenom fournis en données.
- compare le nom et prenom avec ceux present ds le fichier de type t_lsclt
- si le meme me donne l'id pour que je puisse ouvrir le fichier dont le nom est l'id. c tous

Mais je ne suis pas encore là et j'espere pouvoir compte sur votre aide quand j'y serai.

J'ai toujours lu qu'il valait mieu avoir des variables locales que globales, est ce vrai aussi en pascal ?

Grand Merci à Vous.
11/11/2003, 17h30
M.Dlb

Hé bien, comme l'a dit Alcatîz, les variables globales ne doivent pas être trop "grosses" en mémoire, car la pile peut exploser... De manière générale, les variables locales sont assez utiles, si elles ont un but précis... Conceptuellement, les variables locales ne doivent être utilisées que dans des procédures et fonctions... Cela veut tout dire : si ta procédure a besoin d'une variable pour fonctionner mais que le reste du programme n'en a pas besoin, alors cette variable sera déclarée en local. De la même façon, si cette variable peut être utilisée dans d'autres procédures, il vaudra mieux la déclarer en global ! Cette règle fonctionne pour toutes les variables, sauf pour les variables qui prennent de la place en mémoire ( typiquement, les enregistrements, et les objets ). Traditionnellement, on préfèrera les déclarer en global ( ou faire un pointeur dessus puis les déclarer dynamiquement... ).

a+
11/11/2003, 18h53
charly

tous sa pour dire , si la memoire explose vo mieu pas avoire window c est pas beau a voire :lol: