Urgent!! suppression de fichier en pascal

Donverone Messages postés 6 Statut Membre -  
 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.
Configuration: Windows XP
Firefox 2.0.0.16

2 réponses

  1.
    KX Messages postés 19031 Statut Modérateur 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
  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

Discussions similaires

Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses