Bonjour

J'ai un fichier texte avec des adresses.
Dans mon application, j'ai un bouton pour afficher mon fichier dans un tmemo, pas de problème.
J'ai une commande pour ajouter une adresse en fin de fichier, pas de problème, si j'ouvre le ficher avec notepad, le fichier contient bien l'adresse supplémentaire.
Mais si je reviens à mon appli, lorsque je veut réafficher mon fichier, s'est l'ancien fichier qui s'affiche.
Par contre si je ferme mon application, et la relance, le nouveau fichier s'affiche.

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
procedure TForm1.Button1Click(Sender: TObject);
var
  fic: textfile;
  ligne: string;
begin
  memo1.Clear;
  AssignFile(fic, 'adresses.txt');
  reset(fic);
  while not EOF(fic) do
  begin
    readln(fic, ligne);
    memo1.Append(ligne);
  end;
  CloseFile(fic);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  fic: textfile;
    newAdresse:string;
begin
            InputQuery('Nouvelle adresse: ' ,
        '', newadresse);
          AssignFile(fic, 'adresses.txt');
        append(fic);
        WriteLn(fic,newadresse);
        closefile(fic);
 
end;
Je ne comprend pas pourquoi.