Appel d'une procédure ayant un fichier comme paramètre

Bonjour,

J'ai déclaré un fichier dans le programme principal par le code suivant:

Code:

---

1 2 3 4

var fichier : FILE OF Text; assign(fichier, 'C:\sauvegarde.txt');

---

Et puis dans l'implémentation de la procedure, j'ai procédé comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure sauvegarde(var fichier : Text; variable1, variable2, variable3:Integer);   var mot1, mot2, mot3 : string begin Str(variable1, mot1); // ici pour convertir en texte mes variables Integer Str(variable2, mot2); Str(variable3, mot3); append(fichier); write(fichier, mot1, mot2, mot3); close(fichier); end; {sauvegarde}

---

Et puis dans le programme principal, j'appelle sauvegarde comme suit:

Code:

---

1 2 3

sauvegarde(fichier, variable1, variable2, variable3)

---

et c'est à l'appel dans le programme principal qu'il me donne une erreur lors de la compilation disant ceci :" call by var arg no. 1 has to match exactly: Got "File Of Text" expected "Text" ".

Voudriez-vous m'aider à corriger cette erreur.
Merci d'avance.

Antezi

Fia,

Le texte donné par le compilateur est pourtant explicite, les types déclarés pour la variable et l'argument ne sont pas identiques.

Où as-tu trouvé la syntaxe

Code:

---

var fichier : FILE OF Text;

---

pour déclarer un fichier text.

À la place du compilateur, j'aurais déjà couiné à ce niveau.

Un fichier texte se déclare ainsi

Code:

---

var fichier : Text;

---

Et tu le sais, puisque

Code:

---

procedure sauvegarde(var fichier : Text; ...

---

En clair, tu aurais dû être capable de corriger toi-même, ayant tous les éléments en main.

Merci beaucoup Droggo,

C'était ça l'erreur "Type of Text"
Merci

Antezi