Discussion :

[abdou monta]

Bonjour,

l'erreur se produit à l'entrée de la procédure affichage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program test;
uses wincrt;
var
f : text;
choix : byte;
procedure affichage_fichier ( var f : text );
var
ph : string;
begin
while not eof(f) do
	begin
		readln(f, ph);
		writeln(ph);
	end;
end;
procedure remplissage_fichier ( var f : text );
var
c : byte;
ph : string;
begin
{$i-}
reset(f);
{$i+}
if ioresult <> 0 then
	rewrite(f);
append(f);
repeat
	clrscr;
	write('la pharse à saisie');
	readln(ph);
	writeln(f, ph);
	repeat
		write('saisir une autre phrase (1 pour oui et 0 pour non)');
		readln(c);
	until
		c in [0..1];
until
	c = 0;
end;
procedure menu;
begin
writeln('1 : affichage du fichier');
writeln('2 : remplissage de fichier');
writeln('3 : quitter');
end;
procedure boucle ( var choix : byte );
begin
repeat
	clrscr;
	menu;
	repeat
		write('votre choix= ');
		readln(choix);
	until
		choix in [1..3];
	case choix of
		1 : affichage_fichier(f);
		2 : remplissage_fichier(f);
		3 : donewincrt;
	end;
until
	choix = 3;
end;
begin
assign(f, 'D:\f.txt');
boucle(choix);
close(f);
end.

[M.Dlb]

Avec si peu de précisions... Ton fichier n'est pas ouvert, utilise reset ou rewrite.

[abdou monta]

merci..

[Roland Chastain]

Bonsoir !

Il serait plus naturel, me semble-t-il, d'ouvrir et de fermer le fichier à l'intérieur de chaque procédure.

Une autre remarque, c'est que la valeur du paramètre f n'est jamais modifiée, donc il ne sert à rien d'ajouter le mot-clé var dans l'en-tête de la fonction. Le contenu du fichier change, mais la valeur de f ne change pas (c'est toujours le même fichier).

En réalité tu n'as même pas besoin de paramètre, puisque tu travailles sur un seul fichier. Tu pourrais donc écrire :

Code :

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

procedure affichage_fichier;

Ou alors si tu tiens à conserver le paramètre, il faudrait lui donner un nom différent de celui de la variable globale, pour éviter la confusion :

Code :

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

procedure affichage_fichier ( const pf : text );

[droggo]

Foe,

En réalité tu n'as même pas besoin de paramètre, puisque tu travailles sur un seul fichier. Tu pourrais donc écrire :

Code :

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

procedure affichage_fichier;

Ça, c'est à éviter : les variables globales sont à proscrire.

Et pour éviter de les utiliser par erreur, on construit le programme ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
program ....
 
..... toutes les fonctions
 
Var
  ...
 
Begin
End.

ce qui fait que toutes les fonctions définies avant les variables ne peuvent pas les utiliser.

[abdou monta]

Une autre remarque, c'est que la valeur du paramètre f n'est jamais modifiée, donc il ne sert à rien d'ajouter le mot-clé var dans l'en-tête de la fonction. Le contenu du fichier change, mais la valeur de f ne change pas (c'est toujours le même fichier).

En réalité tu n'as même pas besoin de paramètre, puisque tu travailles sur un seul fichier. Tu pourrais donc écrire :

Code :

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

procedure affichage_fichier;

Ou alors si tu tiens à conserver le paramètre, il faudrait lui donner un nom différent de celui de la variable globale, pour éviter la confusion :

Code :

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

procedure affichage_fichier ( const pf : text );

On a commencé l'étude des fichiers depuis quelques semaines ; mon professeur nous a dit que chaque procédure ou fonction où le fichier est parmi ses paramètres, doit être déclaré avec une "var".

[droggo]

Beo,

on a commencé l'étude des fichiers depuis quelques semaines, mon professeur nous a dit que [B]chaque[B] procedure ou fonction où le fichier est parmi ses paramétres, doit être déclarer avec une "var".

Il se trompe :

Var si la procédure/fonction désire modifier le fichier

Const dans le cas contraire.