Type illégal dans une instruction Write/writeln
Bonjour Voici mon code
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
|
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?
