[Turbo Pascal] Supprimer le dernier élément d'un fichier

Supprimer le dernier élément d'un fichier

Bonjour

Voilà, j'ai un fichier de caractères et je veux supprimer le dernier composant ; j'ai essayé cette procedure mais j'ai trouvé qu'on ne peut pas lire le FF ( fin de fichier ) alors si vous pouviez m'aider. J'ai aussi essayé le truncate(fichier) ça n'a pas marché. MERCI
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure suppres (var f:file of char; j:longint); { je veut supprimer le composant j } var c:char; k:longint; begin for k := j to (filesize(f)-1) do begin seek(f,k+1); read(f,c); seek(f,k); write(f,c); end; end;

La fonction eof(File) te dis si le caractère sur lequel tu es positionné est ou non la fin du fichier.

Gao,

L'aide de TP pour Truncate te donne un exemple d'utilisation, il n'y aucun problème pour l'adapter à ton cas, ça relève pratiquement du copier/coller.

Citation:
Envoyé par Bibou_ini
Bonjour voila j'ai un fichier de caractére et je veux supprimer le dernier composant ; j'ai esseyé cette procedure mais j'ai trouver qu'on peut pas lire le FF ( fin de fichier ) alors si vous pouvez m'aider. j'ai aussi esseyé le truncate(fichier) ça na pas marché .MERCI
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure suppres (var f:file of char; j:longint); { je veut supprimer le composant j } var c:char; k:longint; begin for k := j to (filesize(f)-1) do begin seek(f,k+1); read(f,c); seek(f,k); write(f,c); end; end;
Si tu veux atteindre le dernier caractere, je crois que c' est pas très difficile
* filesize te donne la taile du fichier en octet or un caractere fait un octet.
* pour atteindre le dernier caractere, il te suffit de faire seek(f,filesize(f)-1) puisque la premiere position dans le fichier est 0.

A partir de là, tu peux faire le "truncate".

Ou si tu veux faire complet, tu peux copier le contenu du fichier f dans un autre fichier excepté le dernier caractere. Tu pourras t' aider de filepos pour savoir si tu as atteint le dernier composant du fichier.

Si c' est pour un composant "j" quelconque, tu ne peux pas utiliser truncate. Il te faut maintenant recopier le contenu de f dans un autre fichier sauf le composant "j". filepos peut te dire si tu as atteint le composant j.

Fae,

Citation:

Envoyé par darrylsite

...
* filesize te donne la taile du fichier en octet or un caractere fait un octet.
...

Eh non :)

Citation:

Envoyé par TP help

DESCRIPTION: F est une variable de type fichier. FileSize(F) renvoie le nombre d'éléments du fichier F. Si le fichier est vide, FileSize(F) renvoie 0.

Il se trouve que pour un File of Char, c'est la même chose, à cause la taille d'un Char = 1. :)

Citation:

Envoyé par droggo

Fae,

Eh non :)

Il se trouve que pour un File of Char, c'est la même chose, à cause la taille d'un Char = 1. :)

+1.
Je me suis fais avoir par le nom de la fonction.

Hai,

Citation:

Envoyé par darrylsite

+1.
Je me suis fais avoir par le nom de la fonction.

Je le savais par coeur, pour m'être fait avoir aussi, dans le temps (quelque chose comme la préhistoire :)).