Discussion :

[Charly910]

Bonjour,

Est ce qu'il est possible d'ouvrir un fichier texte existant, de se positionner à la fin du fichier et d'ajouter des lignes (par writeln) ?

je me mélange un peu les pinceaux entre les différents types de fichier (TextFile, File et File of byte), entre les possibilités d'ouverture, de positionnement dans le fichier (FileSeek ou Seek)

Je n'arrive pas à faire ce que je veux

Est ce que quelqu'un peut m'aider ?

Merci

Charly

[ShaiLeTroll]

Voir la fonction Append

[Aos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var 
 F : TextFile;
begin
 AssignFile(F,MonFichier);
 append(F);
 Writeln(F,"mon texte que j'ai envie d'ecrire");
 closeFile(F);
end;

Voila pour toi.

[Charly910]

Merci beaucoup à tous les 2

je ne connaissais pas cette fonction (sauf autrefois pour ajouter un enregistrement à une base de données)

@+

Charly