Cuestión : Salvar los archivos a una carpeta especificada

Hola, el

I tiene esto para ahorrar los datos de varios listviews a file.

procedure TMainForm.FormClose (Sender: TObject; acción del 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
si FileExists (“Glucose.sav ") entonces LoadListViewToFile (lstvGlucose, “Glucose.sav ");
si FileExists (“Bolus.sav ") entonces LoadListViewToFile (lstvBolus, “Bolus.sav ");
si FileExists (“FoodDB.sav ") entonces LoadListViewToFile (lstvFoodDB, “FoodDB.sav ");
si FileExists (“OwnDB.sav ") entonces LoadListViewToFile (lstvOwnDB, “OwnDB.sav ");
end;
(*---------------------------------------------------*) los archivos del

These (si no existe) serán creados y excepto al application-folder.
But ahora que he hecho datos llamados de la carpeta en la uso-carpeta y el I
want el programm para ahorrar (o crear los archivos) en la carpeta. los quess del
I tengo que cambiar el código. ¿Puede alguien ayudarme?

P. class= del

Respuesta : Salvar los archivos a una carpeta especificada

Apenas cambiar las trayectorias para incluir datos \, es decir


procedimiento TMainForm.FormClose (remitente: TObject; acción del var: TCloseAction);
comenzar
  SaveListViewToFile (lstvGlucose, “datos \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, “datos \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, “datos \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, “datos \ OwnDB.sav ");
extremo;
(*---------------------------------------------------*)
procedimiento TMainForm.FormCreate (remitente: TObject);
comenzar
  si FileExists (“datos \ Glucose.sav ") entonces LoadListViewToFile (lstvGlucose, “datos \ Glucose.sav ");
  si FileExists (“datos \ Bolus.sav ") entonces LoadListViewToFile (lstvBolus, “datos \ Bolus.sav ");
  si FileExists (“datos \ FoodDB.sav ") entonces LoadListViewToFile (lstvFoodDB, “datos \ FoodDB.sav ");
  si FileExists (“datos \ OwnDB.sav ") entonces LoadListViewToFile (lstvOwnDB, “datos \ OwnDB.sav ");
extremo;
(*---------------------------------------------------*)