sauvegarder/charger le contenue d'un Memo dans un .txt
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:
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:
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");
} |