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.