ReadLn et WriteLn sur fichier texte
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. |
