Bonjour,
Comment faire pour rajouter un texte depuis memo1 vers un fichier texte myfile.txt ?
J'ai essayé
Mais ça ne fonctionne pas !
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 var myFile : TextFile; text : string; begin AssignFile(myFile, 'Test.txt'); ReWrite(myFile); Append(myFile); WriteLn(myFile, memo1.lines); CloseFile(myFile); end;
Partager