Renverser un fichier

Voici ce que j'ai fait; j'ai vu que dans un post vous avez fait une correction d'un exercice similaire mais j'ai du mal à comprendre ce que vous savez fait, donc je vous mets mon bout de programme.

J'ai fait comme ceci :

Code:

---

1 2 3 4 5 6 7

rewrite(f2);   for i:= 0 to filesize(f1) do begin seek(f1,filesize(f1)-i ); read(f1, x); write(f2, x); end;

---

Ceci doit être une procédure qui doit générer dans le fichier 2 l'inverse du fichier 1.

Il y a une autre consigne mais déjà je veux réussir à faire ça; pour le reste, je verrai.

C'est le même code que dans l'autre post. Essaye de comprendre en regardant l'aide en ligne ;)

Le tiens doit planter tout de suite, non ?

D'après ce que je vois, à la première itération de ta boucle tu te places en fin de fichier et tu essayes de lire un caractère (au delà de la fin du fichier donc).

Pour que ça marche, il faudrait commencer l'itération à 1 et non à 0.

ok et si je me place a 1, il lira le caractere en position 0?

ety oui je c'est qu'il ressemble, mais j'aimerai savoir le faire a ma methode a quoi sa me servirai de copier betemen t l autre.

ou alor je peut faire ceici:

rewrite(f2);

Code:

---

1 2 3 4 5

for i:= 0 to filesize(f1)-1 do begin seek(f1,filesize(f1)-i ); read(f1, x); write(f2, x); end;

---

Je crois que le mieux pour toi serait que tu essaye de dérouler ton algo à la main (sur une feuille).

Imagine toi un fichier de petite taille (4 ou 5 caractères) et "pense comme la machine", écris chaque appel de procédure/fonction avec les bons arguments et écris les résultats obtenus.

Mais surtout relis bien la doc. de seek(File, Pos) (et mon post précédent aussi, apparement tu n'as pas bien compris ce que je voulais dire).

A part te faire ton algo, je vois pas comment t'aider plus.

je vais y reflechier serieusement , je vais faire se que tu ma di demain matin , et sinon je reviendrai t embeter demain apres midi aurevoir

donc ok je l'ai fait pas a pas , mais je ne vois pas ou je me trompe, pour moi a partir de ma boucle qui va de 0 a la taille du fichier, je demande au pointeur a chaque tour de boucle de se placer a l endroi taille du fichier moin i.
puis je demand de lire et enfin d ecrire dans f2

mais je ne compren pas ou j ai fait mon erreur, si tu veu m expliquer je suis preneur, meme l'lago comme tu disai m'aiderai beaucoup a condition que je le comprenne.

merci d'avance

Au premier tour de boucle, i = 0, donc taille - i = taille. Tu positionnes le pointeur à la fin du fichier, après le dernier élément. Tu essayes ensuite de lire, mais comme il n'y a rien à lire puisque tu as atteint la fin du fichier, il y a une erreur.

a ok je me positionne apres le dernier element , mais il ne lit que dans un sens?donc je doi partir de 1?

Euh oui, il lit que dans un sens, dans le sens séquentiel normal. Tu te places avant le dernier enregistrement, tu le lis, tu te places avant l'avant-dernier, tu le lis, tu te places avant l'avant-avant-dernier, tu le lis, etc...

ok donc en partan de 1 sa marche si je ne me trompe pa?

Normalement oui ! :lol:

ok donc la personne qui avait di sa avait raison des le debut , sui desoler de l'avoir trouver aussi tard mais jpense avoir compri

merci a tous