Bonjours a tous !
voila mon problème :
je veux sauvegarder le contenu de mon Memo dans un .txt
sans que le contenue du .txt soit écraser à chaque nouvelle sauvegarde

sauvegarde :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if((Action != caNone) && (Action != caMinimize))
    {
    Memo1->Lines->SaveToFile(StorageFile);
    }
 
}
Chargement .txt :

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
16
17
18
19
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 
StoragePath = ExtractFilePath(Application->ExeName);
StorageFile = StoragePath + "convers.txt";
 
     if(FileExists(StorageFile))
    {
      Archive->Show();
      Archive->Memo1->Lines->LoadFromFile("convers.txt") ;
 
 
    }
  else
    {
 
   // Memo1->Lines->SaveToFile("Project1.ini");
    }