[TPW] ReadLn et WriteLn sur fichier texte [Résolu]

[abdou monta]

Bonjour,

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

Code :

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 :

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 :

procedure affichage_fichier ( const pf : text );

[droggo]

Foe,

Envoyé par Roland Chastain

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 :

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 :

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]

Envoyé par Roland Chastain

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 :

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 :

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,

Envoyé par abdou monta

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.

[Alcatîz]

Bonjour,

Malheureusement, TPW ne connaît pas le mode de transmission de paramètre comme constante. Les deux seuls modes autorisés sont par valeur et par adresse.
L'inconvénient de travailler avec des compilateurs de l'Age de pierre...

[droggo]

Wea,

Envoyé par Alcatîz

L'inconvénient de travailler avec des compilateurs de l'Age de pierre...

Ça remonte à loin, mais il me semble que TP - encore plus vieux - acceptait const ?

[Alcatîz]

TP n'acceptait pas non plus const.

[Roland Chastain]

Au temps pour moi ! J'ai dit une sottise.

Je viens d'essayer de compiler le code suivant avec FreePascal :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program test_fichier;
 
{$APPTYPE CONSOLE}
 
var
  f: text;
 
procedure modifie_fichier(const aF: text);
begin
  Assign(aF, 'monFichier.txt');
  Rewrite(aF);
  WriteLn(aF, 'essai');
  Close(aF);
end;
 
begin
  modifie_fichier(f);
  ReadLn;
end.

J'ai obtenu un beau message d'erreur :

Error: File types must be var parameters

En fait je n'ai pas l'habitude de passer le fichier en paramètre et j'ai parlé sans savoir. Pour ma part j'utilise toujours une variable globale ou une variable locale.

[droggo]

Doa,

Envoyé par Alcatîz

TP n'acceptait pas non plus const.

Alors je confonds avec MS-PASCAL, que j'utilisais bien avant la sortie du premier TP.

Eh oui, M$ nous avait octroyé un compilateur Pascal, assez performant, sauf côté vitesse de compilation, car il stockait tout sur le disque - pardon, la disquette.