Bonjour,
Voici un exemple de programme qui génère un fichier dans lequel l’étudiant mis en paramètre à été supprimé.
1 2 3 4 5 6 7 8 9 10 11 12 13
| // cette procédure suprime etu du fichier FicEntre, le résultat est enregistré dans le fichier FicSortie
// On suppose que les fichiers sont déclarés et ouvert dans les modes adéquats
procedure suppression( etu : Tetudiant ; FicEntre , FicSortie : Fetudiant);
var
item : Tetudiant;
begin
while not eof(FicEntre) do
begin
read(FicEntre,item);
if not(item.Nom = etu.Nom) then
write(FicSortie,item);
end;
end; |
Autre déclaration possible (optimisation au niveau de la mémoire).
procedure suppression(const etu : Tertudiant ; const FicEntre ; var FicSortie : Fetudiant);
J’espère vous avoir aidé.
Partager