|
|
« Sujet précédent | Sujet suivant »
|
|
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-)
|
|
|
|
|
|
ftbass
|
Administrator
|
|
|
|
|
|
|
Messages: 72
|
|
Inscrit(e) le: 27/02/2004
|
|
Déconnecté(e)
|
|
|
|
|
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 
|
|
|
http://ftprods.free.fr
|
|
|
|
|
|
« Sujet précédent | Sujet suivant »
|
