Bonjour 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
TYPE TPersonne=Record
               Nom:Shortstring;
               Age:Double;
               Anciennete:integer;
               end;
 
     TTabPersonne=Array of TPersonne;
Procedure Saisie(NomFichier:string;var tab:ttabpersonne);
 
implementation
Procedure Saisie(NomFichier:string;var tab:ttabpersonne);
Var n,i:integer;
    E:tpersonne;
    F:textfile;
begin
   writeln('Entrer le nombre de personne que vous voulez saisir : ');readln(n);
   assignfile(F,nomfichier);
   setlength(tab,n);
   rewrite(F);
   For i:=0 to n-1 do
   begin
      writeln('Entrer les informations de la personne',i+1,' :');
      writeln('Nom : ');readln(E.nom);
      writeln('Age : ');readln(E.age);
      writeln('Anciennete : ');readln(E.Anciennete);
      write(F,e);
      read(f,e);
      tab[i]:=E;
   end;
   closefile(f);
end;
Sa bug à la la ligne "write(F,e);" et le message type illégal dans une instruction write/writeln apparait. Je ne comprend pas l'erreur d'autant plus que j'ai déjà vu ecrit ceci dans un autre programme qui marche. Quelqu'un peut-il m'aider?