Problème d'affichage de textfile
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:
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.
