Fråga : Räddningen sparar till en specificerad mapp

Hi

I har denna för besparing datan av flera listviews till file.

procedure TMainForm.FormClose (Sender: TObject; var-handling: 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
om FileExists (”Glucose.sav”) därefter LoadListViewToFile (lstvGlucose, ”Glucose.sav”);
om FileExists (”Bolus.sav”) därefter LoadListViewToFile (lstvBolus, ”Bolus.sav”);
om FileExists (”FoodDB.sav”) därefter LoadListViewToFile (lstvFoodDB, ”FoodDB.sav”);
om FileExists (”OwnDB.sav”) därefter LoadListViewToFile (lstvOwnDB, ”OwnDB.sav”);
end;
(*---------------------------------------------------*)

These sparar (om inte finns), ska skapas, och räddningen till applicationen-folder.
But nu har jag gjort kallade data för mapp i applikation-mappen och Iwant programmen till räddningen (eller skapa sparar), i mappen. quess för
I jag måste att ändra kodifiera. Kan någon hjälpa mig?

P. " klar "

Svar : Räddningen sparar till en specificerad mapp

Ändra precis banorna för att inkludera data \, dvs.


tillvägagångssätt TMainForm.FormClose (avsändare: TObject; var-handling: TCloseAction);
börja
  SaveListViewToFile (lstvGlucose, ”data \ Glucose.sav”);
  SaveListViewToFile (lstvBolus, ”data \ Bolus.sav”);
  SaveListViewToFile (lstvFoodDB, ”data \ FoodDB.sav”);
  SaveListViewToFile (lstvOwnDB, ”data \ OwnDB.sav”);
avsluta;
(*---------------------------------------------------*)
tillvägagångssätt TMainForm.FormCreate (avsändare: TObject);
börja
  om FileExists (”data \ Glucose.sav”) därefter LoadListViewToFile (lstvGlucose, ”data \ Glucose.sav”);
  om FileExists (”data \ Bolus.sav”) därefter LoadListViewToFile (lstvBolusen, ”data \ Bolus.sav”);
  om FileExists (”data \ FoodDB.sav”) därefter LoadListViewToFile (lstvFoodDB, ”data \ FoodDB.sav”);
  om FileExists (”data \ OwnDB.sav”) därefter LoadListViewToFile (lstvOwnDB, ”data \ OwnDB.sav”);
avsluta;
(*---------------------------------------------------*)