Bonjour,
Comment faire pour rajouter un texte depuis memo1 vers un fichier texte myfile.txt ?
J'ai essayé
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;
Mais ça ne fonctionne pas !