Discussion :

[Mickey.jet]

Bonjour a tous

Je souhaite écrire une string dans un fichier text existant (sans écrasé tous ce qu'il contient déjà)
apres quelque recherche je suis arrivé a ce code:

Code :

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

1
2
3
4
5
 
   AssignFile(fichier,'c:\monFichier.txt');
   Rewrite(fichier);
   WriteLn(fichier, 'la phrase que je souhaite ajouter');
   closeFile(fichier);

J'écris bien dans mon fichier text mais j'écrase celui ci (c'est pas un ajout de texte) donc ca va pas.

Quelqu'un voit-il mon erreur?

En meme temps est -il possible de changer la couleur du texte de certaines lignes?

Merci

[TicTacToe]

Il faut utiliser Append() à la place de Rewrite().
bon code!

[rbh]

Salut
Il faut que tu utilises "Append" à la place de "Rewrite".

Pour la couleur, ce n'est pas possible avec les fichiers de texte pur.

[Graffito]

Bonjour,

on peut aussi utiliser des Tstringlist :
Var tsl :Tstringlist ;
...

Code :

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

1
2
3
4
5
tsl:=Tstringlist.create ;
tsl.loadfromfile('c:\monFichier.txt');
tsl.add('la phrase que je souhaite ajouter');
tsl.savetofile('c:\monFichier.txt') ;
tsl.free ;