[TPW] Affichage d'un fichier
:evilred:
J'ai voulu faire un test d'un programme qui lit un fichier d'extension .dat rempli par des chaînes de caractères et affiche ce qu'il contient.
Quand je le compile il n'affiche aucune faute mais à l'execution il affiche cette erreur : runtime error 100 at 0001:006C.
Je vous fais voir le code de mon programme :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| program lireafficherfichier;
uses wincrt;
type fich=file of string ;
var f:fich;
procedure creation(var f:fich);
begin
assign(f,'D:\teste.dat');
reset(f);
end;
procedure affichage(var f:fich);
var ch:string ;
begin
while not eof(f) do
begin
read(f,ch);
writeln(ch);
end;
end;
begin
creation (f);
affichage (f);
close(f);
end. |
Il est trés simple c'est juste un test...
Je voulais savoir pourquoi il ne fonctionne pas.
Je demande votre aide et je vous remercie d'avance.
