[TPW] Problème des fichiers

Salut à tous,
Je voulais apprendre comment programmer en utilisant les fichiers, mais j'ai pas eu des cours trés détailler avec des exercices.
en plus j'ai eu 2 exemples dans un cours mais le prob c'est qu'ils ne s'executent pas à cause d'une erreur 105 et aussi dans l'exemple http://pages.univ-nc.nc/~racca/exempletext.html j'ai pas compris, FOR i:=ORD(S[0]) DOWNTO 1 DO .(pourquoi i est de type byte? & c'est quoi le code ascii de S[0] ?)
Je vous remérci pour l'aide et svp si vous savez des liens qui m'aident n'hésitez pas à me les envoier.
Merci d'vance.

Kae,

Citation:

---

Envoyé par safowan

Salut à tous,
Je voulais apprendre comment programmer en utilisant les fichiers, mais j'ai pas eu des cours trés détailler avec des exercices.
en plus j'ai eu 2 exemples dans un cours mais le prob c'est qu'ils ne s'executent pas à cause d'une erreur 105 et aussi dans l'exemple http://pages.univ-nc.nc/~racca/exempletext.html

---

Pour l'erreur 105, je vois un problème dans le code de l'url citée:

Code:

---

1 2 3 4

... CLOSE(F_In); {Ferme le fichier} RESET(F_Out); ...

---

Le fichier F_Out a été ouvert en écriture (ReWrite), et on cherche à le réouvrir en lecture (Reset) sans l'avoir fermé.
Or, pour un fichier Text, les 2 modes sont incompatibles.

Citation:

---

Envoyé par safowan

J'ai pas compris, FOR i:=ORD(S[0]) DOWNTO 1 DO .(pourquoi i est de type byte?

---

De type Byte, parce que c'est suffisant.

Personnellement, je préfère qu'on utilise Integer.

Citation:

---

Envoyé par safowan

& c'est quoi le code ascii de S[0]

---

Dans les chaînes standards du Pascal, le caractère d'indice 0 dans la chaîne contient en fait la longueur effective de la chaîne.

Prendre S[0] revient donc à prendre Length(S).

Là encore, c'est le genre d'écriture que je déconseille vivement.

Avant tout je te remerci Droggo à tes réponses compréhensibles. Mais il restent quelques problèmes qui pérsistent :
1) Même que j'ai fermé le fichier F_out comme t'as dit, en executant, l'erreur 105 se montre (sachant que j'utilise Turbo Pascal for Windows & windows XP comme sys.exp). Et il faut attirer l'attention qu'en ouvrant le fichier TEXT.SAP je trouve que le demandé est fait, mais la 2ème partie de l'affichage à l'ecran ne se fait pas l'hors de l'execution.
2) Tu m'as dit que S[0] remplace length(S) alors pourquoi on ne met pas FOR i:=S[0] DOWNTO 1 DO à la palce de FOR i:=ORD(S[0]) DOWNTO 1 DO ?

Jao,

Citation:

---

Envoyé par safowan

2) Tu m'as dit que S[0] remplace length(S) alors pourquoi on ne met pas FOR i:=S[0] DOWNTO 1 DO à la palce de FOR i:=ORD(S[0]) DOWNTO 1 DO ?

---

Parce que un byte et un char ne sont pas compatibles directement.

Citation:

---

Envoyé par safowan

Avant tout je te remerci Droggo à tes réponses compréhensibles. Mais il restent quelques problèmes qui pérsistent :
1) Même que j'ai fermé le fichier F_out comme t'as dit, en executant, l'erreur 105 se montre (sachant que j'utilise Turbo Pascal for Windows & windows XP comme sys.exp). Et il faut attirer l'attention qu'en ouvrant le fichier TEXT.SAP je trouve que le demandé est fait, mais la 2ème partie de l'affichage à l'ecran ne se fait pas l'hors de l'execution

---

Je ne dispose pas du compilateur que tu utilises, vas voir dans l'aide à quoi correspond le code d'erreur d'exécution 105.

Sinon, pour moi le code est bon.

Enfin, "bon", si on néglige le fait que c'est du code de cochon :

aucun contrôle sur le résultat de la réussite ou échec des opérations, c'est une erreur de conception. :D

--- Édité ----

Je complète ma dernière phrase :

.... c'est une erreur de conception, ou, pour le moins, une très mauvaise habitude. :D

:D Merci infiniment

Mei,

Citation:

---

Envoyé par safowan

:D Merci infiniment

---

N'exagérons rien.

Je vois que tu as mis le tag "Résolu".

Quel était le problème ?

(Il est est bon de préciser ce qui se passait, et comment ça a été résolu. Ça aide les autres membres qui auraient le même problème que toi. :))

Pour l'instruction FOR i:=ORD(S[0]) DOWNTO 1 DO c'est résolu et je l'ai compris, et pour l'erreur 105 j'ai consulté la discussion "[BPW] Erreur 105" ils ont fait un pas en avant pour la résoudre, et puisque j'ai su que cette erreur n'est pas une faute de programmation alors ça me gène pas à continuer à apprendre la manipulation sur les fichiers qui est mon but. ;)
Bon j'ai élliminé resolu, pour ne pas tromper les autres, comme t'as dit :)