Discussion :

[antezi]

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

[droggo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

var fichier : Text;

Et tu le sais, puisque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure sauvegarde(var fichier : Text; ...

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

[antezi]

Merci beaucoup Droggo,

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

Antezi