Discussion :

[Maudr]

Bonsoir,
je veux créer une boite mail qui enregistrerait les messages avec l'identifiant de la personne concernée dans un fichier et qui l'afficherait lors de la connexion de la personne concernée ...
Lorsque je compile j'obtiens :
merci d'avance

Voila mon code

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
 
Program Boitemail;
 
uses wincrt,sysutils;
 
var identifiant1, identifiant2,messages : String;
var reponse: Integer;
 
 
var e : text;
 
begin
assign(e,'messages');
append(e);
 
writeln ('Donner votre identifiant');
readln(identifiant1);
writeln ('Que voulez-vous faire ?');
writeln ('Consulter votre boite mail ? (1)');
writeln ('Ecrire un mail ? (2)');
readln (reponse);
 
if reponse=2 then 
begin
writeln ('Identifiant');
readln (identifiant2);
writeln (e, identifiant2);
writeln ('Message');
readln (messages);
writeln (e, messages);
close(e);
end;
 
 
if reponse =1 then
begin
reset(e);
while not(eof(e)) do
begin
readln (e,identifiant2);
readln(e,messages);
writeln ('Quel est la boite mail que vous voulez consulter ?');
readln(identifiant1);
begin
if identifiant1 = identifiant2 then 
writeln(e,identifiant2);
writeln (e, messages); 
write('ok');
close(e);
end;
end;
end;
end.

[xdelatour]

Bonjour,

Sous Free Pascal (pour les autres compilateurs je ne sais pas), la fonction append() permet d'ajouter des données à un fichier existant, elle ne crée pas le fichier s'il est inexistant. Donc, si le fichier 'messages' n'existe pas au préalable, il sera impossible d'écrire dedans, d'où le message d'erreur.

[Maudr]

j'ai déjà créé le fichier et même que j'écris dedans avec l'action numéro 2

[xdelatour]

Il semblerait alors que c'est à cause de reset(e) qui ouvre le fichier en lecture seule. Du coup je ne sais pas comment faire pour revenir en début de fichier en gardant la possibilité d'écrire dedans

[Jipété]

Yop !

Il semblerait alors que c'est à cause de reset(e) qui ouvre le fichier en lecture seule. Du coup je ne sais pas comment faire pour revenir en début de fichier en gardant la possibilité d'écrire dedans

Rewrite !

writeln ('Quel est la boite mail que vous voulez consulter ?');

'Quelle est ...'

[Maudr]

Bonjour,
J'ai essayé mais ça met ça ...

Donner votre identifiant
Paolo
Que voulez-vous faire ?
Consulter votre boite mail ? (1)
Ecrire un mail ? (2)
1
An unhandled exception occurred at $00401B73:
EInOutError: File not open for input
  $00401B73

Appuyez sur une touche pour continuer...

[BeanzMaster]

Re-bonjour

Le problème c'est la façon dont les actions s'effectuent.

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
Program Boitemail;
 
 
 
uses wincrt,sysutils;
 
var 
  identifiant1, identifiant2,messages : String;
  reponse: Integer;
  e : text;
  CountMessage : Integer;
 
begin		 	
  writeln ('Que voulez-vous faire ?');
  writeln ('Consulter votre boite mail ? (1)');
  writeln ('Ecrire un mail ? (2)');
  readln (reponse);
 
  if reponse=2 then 
  begin
    assign(e,'messages.txt');
    if not(FileExists('messages.txt')) then rewrite(e)  else append(e);
    writeln ('Identifiant');
    readln (identifiant2);
    writeln (e, identifiant2);
    writeln ('Message');
    readln (messages);
    writeln (e, messages);
    close(e);
  end
  else if reponse =1 then
  begin
    assign(e,'messages.txt');
    reset(e);		
    writeln ('Quelle est la boite mail que vous voulez consulter ?'); 
    readln(identifiant1); 
    CountMessage := 0;
    while not(eof(e)) do
    begin 
       readln (e,identifiant2); 
       readln(e,messages); 
       if identifiant1 = identifiant2 then 
       begin			
          inc(CountMessage);
          Writeln('Message : '+InttoStr(CountMessage) + ': '); 
          Writeln (messages); 
          Writeln('ok --------------------------------------------'); 			  
       end;
    end;
    close(e); 
  end; 
end.

Voilà un code fonctionnel. Regarde bien les différences. Surtout dans l'imbrication des blocs if..then et begin...end. Essaye de prendre l'habitude d'indenter tes codes. C'est plus lisible et donc plus facile pour retrouver les erreurs.