Discussion :

[ascii]

J'aimerais, afin de pouvoir modifier ses données, rechercher une personne lambda dans mon fichier mais je rebute. voici mon code:

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
procedure Research(var F: FUsers);
var
  U: Users;
  newCode:string[16];
begin
  reset(F);
  while (not eof(F)) and (newCode=U.code) do
  begin
    read(F,U); 
    writeln('Nom : ', U.name);
    writeln(Mot de passe : ', U.password);
    writeln;
  end;
  close(F);
end;

[M.Dlb]

Quel est ton problème exactement ?

[Alcatîz]

Bonjour !

Il me semble que newCode doit être passé comme paramètre à la procédure de recherche, sinon sa valeur comme variable locale est indéfinie.

Ensuite, il ne faut pas tester

Code :

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

(newCode=U.code)

en début de boucle car U n'a pas encore été lu dans le fichier.

Il me semble que ton code devrait donner quelque chose comme ceci :

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
procedure Research(var F: FUsers; newCode:string);
var
  U: Users;
  Trouve : Boolean;
begin
  reset(F);
  Trouve := False;
  while (not eof(F)) and not Trouve do
  begin
    read(F,U);
    if newCode = U.code
       then
         begin
           writeln('Nom : ', U.name);
           writeln(Mot de passe : ', U.password);
           writeln;
           Trouve := True;
         end;
  end; 
  close(F); 
end;

[ascii]

ok c'est bon. Fallait donc y ajouter un test (boolean) pour y arriver. Maintenant le second volet de ma question (ne me dites pas que je suis paresseux mais j'ai pas réussi et donc j'ai naturellement pensé à vous, lol).
Alors une fois que je ressors une personne donnée, j'aimerais pouvoir en modifier les données.
J'ai fait ceci:

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
[...]
procedure ModifNote(var F: FUsers; login:string; password:string); 
var 
  U: Users; 
  Trouve : Boolean; 
begin 
  reset(F); 
  Trouve := False; 
  while (not eof(F)) and not Trouve do 
  begin 
    read(F,U); 
    if login = U.login{si le login saisi==login contenu dans le fichier File of} 
       then 
         begin 
           U.note:=U.note+5;{ mettre la note a jour (+5)}
 
           seek(F, FileSize(F));
           write(F, U);
 
           writeln; 
           Trouve := True; 
         end;
  end; 
  close(F); 
end;
[...]

Là je souhaitais, une fois la personne trouvée, faire sa note +5 et enregistrée la modification apportée au fichier.

[Clandestino]

seek(F, FileSize(F));
write(F, U);

En faisant un
seek(F, FileSize(F));
vous vous placez à la fin du fichier,
Vous allez donc ecrire la note de U modifiée à la fin du fichier...
Il faudrait peut-être etudier la structure du fichier (la façon dont sont enregistréees les données dedans) pour ecrire cette note sur l'ancienne, car à mon avis, la note de U se trouve un peu après son login et pas forcément au bout du fichier...