Discussion :

[vuong1]

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?

[sjrd]

Edit : réponse incorrecte, voir les messages suivants.

Tu ne peux pas mettre une variable de type record dans un Write, c'est tout.
Il te faut écrire chaque champ à son tour.

[Linkin]

Pour que cela marche il faut que F soit du type file of TPersonne

[sjrd]

Ah mince, j'avais pas bien lu le stuut Je croyais que tu voulais imprimer le contenu du record sur la console...

En effet Linkin a raison : il faut que F soit du type file of TPersonne.

[vuong1]

merci pour votre aide.