Pergunta : Conservar limas a um dobrador especific

Olá!, o

I tem este para conservar os dados de diversos listviews a file.

procedure TMainForm.FormClose (Sender: TObject; ação do var: 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
se FileExists (“Glucose.sav ") então LoadListViewToFile (lstvGlucose, “Glucose.sav ");
se FileExists (“Bolus.sav ") então LoadListViewToFile (lstvBolus, “Bolus.sav ");
se FileExists (“FoodDB.sav ") então LoadListViewToFile (lstvFoodDB, “FoodDB.sav ");
se FileExists (“OwnDB.sav ") então LoadListViewToFile (lstvOwnDB, “OwnDB.sav ");
end;
(*---------------------------------------------------*) as limas do

These (se não existe) serão criadas e excepto ao application-folder.
But eu tenho feito agora que uns dados chamados do dobrador no aplicação-dobrador e no I
want o programm para conservar (ou para criar as limas) no dobrador. quess do
I eu tenho que mudar o código. Pode alguém ajudar-me?

P. class= do

Resposta : Conservar limas a um dobrador especific

Apenas mudar os trajetos para incluir dados \, isto é


procedimento TMainForm.FormClose (remetente: TObject; ação do var: TCloseAction);
começar
  SaveListViewToFile (lstvGlucose, “dados \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, “dados \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, “dados \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, “dados \ OwnDB.sav ");
extremidade;
(*---------------------------------------------------*)
procedimento TMainForm.FormCreate (remetente: TObject);
começar
  se FileExists (“dados \ Glucose.sav ") então LoadListViewToFile (lstvGlucose, “dados \ Glucose.sav ");
  se FileExists (“dados \ Bolus.sav ") então LoadListViewToFile (lstvBolus, “dados \ Bolus.sav ");
  se FileExists (“dados \ FoodDB.sav ") então LoadListViewToFile (lstvFoodDB, “dados \ FoodDB.sav ");
  se FileExists (“dados \ OwnDB.sav ") então LoadListViewToFile (lstvOwnDB, “dados \ OwnDB.sav ");
extremidade;
(*---------------------------------------------------*)