Hi!

Une version + simplifiée pour enregistrer/lire les record !
On sauvegarde/lit tout le record en une fois ...

ps : essaye d'être là Jeudi, normalement on aura les sujets de projets

A+

code: ... with Sequential_Io; ... type Personnel is array(1..2) of Salarie; -- déclarations des variables ------------------------ effectif:personnel; Fichier_Personnel:Personnel; package Fichier_Personnel_es is new sequential_io(Personnel); use Fichier_Personnel_es; ... procedure Enregistrer_Personnel(P :in Personnel ) is   F:Fichier_Personnel_es.File_Type;   Nom_Fichier:string(1..30);   compt_chaine:integer; begin   new_line;   Put("Donner un nom de fichier a creer : ");   Get_Line(Item=>Nom_Fichier,Last =>Compt_Chaine);   Create(F,out_file,name=>Nom_Fichier(1..Compt_Chaine));   write(f,P);         Close(F); end Enregistrer_Personnel; procedure Lire_Personnel(T :in out Personnel ) is   F:Fichier_Personnel_es.File_Type;   Nom_Fichier:string(1..30);   compt_chaine:integer;   begin   new_line;   Put("Donner un nom de fichier a lire : ");   Get_Line(Item=>Nom_Fichier,Last =>Compt_Chaine);   Open(F,In_file,name=>Nom_Fichier(1..Compt_Chaine));     Read(f,T);   Close(F); end Lire_Personnel;

Bye! 8-)

Oui, je serais là ce soir (si y a pas d'alerte à la bombe dans une gare, ou une connerie du genre).

@+

ps: post fait à 7h39... t'es super matinal !!! Bonne journée