Urgent!! suppression de fichier en pascal

Donverone Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
 donverone -
Bonjour,

j'ai fait un programme dans lequel il y a un fichier ou est repertorié une liste de produits et un autre programme qui permet d'afficher la liste et un autre qui permet d'ajouter d'autres produits à la liste. j'aimerais faire un autre qui me permette de supprimer un produit et malheureusement je n'y arrive pas. merci de pouvoir m'aider.
A voir également:

2 réponses

Réponse 1 / 2
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
si tu veux supprimer le Nème élément de ton fichier (de type Fichier=file of Produit, déjà ouvert)
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 
0
Réponse 2 / 2
donverone
 
salut KX,

Je voulais juste te remercier de d'avoir répondu à mes attentes.Je vais d'ores et déjà m'ateller à le terminer
Encore une fois merci!


Donverone, seul le travail et le dévouement paient!
0