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 :
Chargement .txt :
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); } }
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"); }
Partager