Urgent!! suppression de fichier en pascal
Fermé
Donverone
Messages postés
6
Date d'inscription
jeudi 24 juillet 2008
Statut
Membre
Dernière intervention
14 mai 2012
-
25 juil. 2008 à 11:29
donverone - 28 juil. 2008 à 23:46
donverone - 28 juil. 2008 à 23:46
A voir également:
- Urgent!! suppression de fichier en pascal
- Forcer suppression fichier - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier iso - Guide
2 réponses
KX
Messages postés
16752
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 août 2024
3 019
25 juil. 2008 à 12:59
25 juil. 2008 à 12:59
si tu veux supprimer le Nème élément de ton fichier (de type Fichier=file of Produit, déjà ouvert)
La confiance n'exclut pas le contrôle
procedure Supprimer(var F:Fichier;N:integer); var P:Produit; begin seek(F,Filesize(F)-1); read(F,P); // on lit le dernier élément seek(F,N); write(F,P); // on écrit le dernier élement à la place du Nème seek(F,Filesize(F)-1); truncate(F); // on supprime le dernier élément end;Par contre si tu veux supprimer TOUT le fichier, il faut faire
assign(F,'C:\...'); erase(F);--
La confiance n'exclut pas le contrôle