Remplir un fichier d'enregistrements

**zineb2012** · 18/04/2012, 22h43

Salut,

j'ai créé un fichier texte d'enregistrement et je voulais ajouter un élément mais ça ne marche pas car le programme lit le premier champ de l'enregistrement mais le reste non ; il sort de l'écran noir comme si l’exécution du programme était terminée.
Le programme est le suivant :

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
program fichier;
type
  client=record
    numero:string;
    nom:string;
  end;
var
  fclient:file of client;
  b:client;
 
begin
 
  assign(fclient,'dot.txt');
  rewrite(fclient);
  read(b.numero);
  read(b.nom);
 
  write(fclient,b);
  close(fclient);
 
end.

**Modulpro** · 19/04/2012, 00h53

Bonjour,

Essaye de remplacer les read par des readln lors de la saisie des informations.
De plus, évite de laisser ton fichier ouvert inutilement en inversant l'ordre des instructions :

Code :

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

1
2
3
4
5
6
7
readln(b.numero);
readln(b.nom);
 
assign(fclient,'dot.txt');
rewrite(fclient);
write(fclient,b);
close(fclient);

**zineb2012** · 19/04/2012, 08h05

bonjour;
merci pour la réponse j'ai essayé avec les readln et j'ai inversé l'ordre et j'ai fermé le fichier à la fin alors maintenant je peux saisir touts les champs de l'enregistrement mais quand je vérifie le fichier créé je ne trouve que le premier champ qui existe dedans . Merci d'avance.

**droggo** · 19/04/2012, 13h38

Kie,

Erreur assez classique.

Chaque fois que tu ouvres ton fichier avec rewrite, il est vidé !

Pour ajouter des données dans un fichier existant, il faut l'ouvrir avec reset,

ET ne pas oublier de se positionner à la fin du fichier, sinon tu écris toujours à partir du 1er enregistrement.

**zineb2012** · 19/04/2012, 20h26

salut, merci pour vos réponses ;
j'ai mis rewrite car je n'avais pas le fichier sur le disque et que je viens de le créer et après j'ai ajouté un élément et je n'ai exécuté le programme qu'une seule fois normalement à la fin de l’exécution du programme je dois trouver un fichier texte contenant un élément qui est un enregistrement constitué de 2champs, si le fichier a été vidé il sera donc vidé totalement mais là je trouve le premier champ que j'ai saisi mai le deuxième non :/ .