Bonjour,

J'ai déclaré un fichier dans le programme principal par le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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