Question : Sauver les dossiers à une chemise spécifique

Bonjour, le

I ont ceci pour sauver les données de plusieurs listviews à file.

procedure TMainForm.FormClose (Sender : TObject ; action de variété : TCloseAction) ;
begin
SaveListViewToFile (lstvGlucose, « Glucose.sav ") ;
SaveListViewToFile (lstvBolus, « Bolus.sav ") ;
SaveListViewToFile (lstvFoodDB, « FoodDB.sav ") ;
SaveListViewToFile (lstvOwnDB, « OwnDB.sav ") ;
end ;
(*---------------------------------------------------*)
procedure TMainForm.FormCreate (Sender : TObject) ;
begin
si FileExists (« Glucose.sav ") puis LoadListViewToFile (lstvGlucose, « Glucose.sav ") ;
si FileExists (« Bolus.sav ") puis LoadListViewToFile (lstvBolus, « Bolus.sav ") ;
si FileExists (« FoodDB.sav ") puis LoadListViewToFile (lstvFoodDB, « FoodDB.sav ") ;
si FileExists (« OwnDB.sav ") puis LoadListViewToFile (lstvOwnDB, « OwnDB.sav ") ;
end ;
(*---------------------------------------------------*) des dossiers du

These (sinon existe) seront créés et sauf à l'application-folder.
But maintenant que j'ai fait des données appelées de chemise dans l'application-chemise et l'I
want le programm pour sauver (ou créer les dossiers) dans la chemise. des quess du
I je dois changer le code. Est-ce que quelqu'un peut m'aider ?

P. class= de

Réponse : Sauver les dossiers à une chemise spécifique

Changer juste les chemins pour inclure des données \, c.-à-d.


procédé TMainForm.FormClose (expéditeur : TObject ; action de variété : TCloseAction) ;
commencer
  SaveListViewToFile (lstvGlucose, « données \ Glucose.sav ") ;
  SaveListViewToFile (lstvBolus, « données \ Bolus.sav ") ;
  SaveListViewToFile (lstvFoodDB, « données \ FoodDB.sav ") ;
  SaveListViewToFile (lstvOwnDB, « données \ OwnDB.sav ") ;
extrémité ;
(*---------------------------------------------------*)
procédé TMainForm.FormCreate (expéditeur : TObject) ;
commencer
  si FileExists (« données \ Glucose.sav ") puis LoadListViewToFile (lstvGlucose, « données \ Glucose.sav ") ;
  si FileExists (« données \ Bolus.sav ") puis LoadListViewToFile (lstvBolus, « données \ Bolus.sav ") ;
  si FileExists (« données \ FoodDB.sav ") puis LoadListViewToFile (lstvFoodDB, « données \ FoodDB.sav ") ;
  si FileExists (« données \ OwnDB.sav ") puis LoadListViewToFile (lstvOwnDB, « données \ OwnDB.sav ") ;
extrémité ;
(*---------------------------------------------------*)