Après un reset() le mode écriture est toujours activé ?
je m'explique, je doi faire une procédure qui recoit 2 variables fichiers en paramètre (f1 et f2) et renregistre dans f2 le renversé de f1.
exemple:
f1 contient "pouet" donc la procedure doit enregistrer "teuop" dans f2.
j'ai donc fait comme cela
Code:
1
2
3
4
5
6
7
8
9
|
begin
rewrite(f2);
while not eof(f1) do begin
read(f1, e);
reset(f2);
write(f2, e);
end;
end; |
Bref pour chaque lettre de f1, la boucle doit pointer au debut de f2 et rajouter cette lettre lu dans f1 puis passe à la suivant.
Mais le problème est qu'à la fin du programme f2 ne contient que "t" or j'ai vérifier la boucle s'effectue bien une fois par lettre contenu dans f1.
J'ai donc pensé qu'aprés le reset qui doit replacer le pointeur au debut de f2, le mode écriture était peut-être plus active mais ca m'étonne.
Je voudrais savoir si quelqu'un saurai d'où vien le problème et comment arranger cela.
merci d'avance
