ftbass
|
Publié le 08/04/2004 à 09:53 |
RE : [Record / Fichier] : + simple
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  |
SYLADA
Member 
Messages: 7
Inscrit(e) le: 16/03/2004
Déconnecté(e)
|
Publié le 08/04/2004 à 07:39 |
[Record / Fichier] : + simple
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-) |
|
