Questione : Conservare le lime ad un dispositivo di piegatura specificato

Ciao, il

I ha questo per il salvataggio dei dati di parecchi listviews a file.

procedure TMainForm.FormClose (Sender: TObject; azione di varietà: 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 ") allora LoadListViewToFile (lstvGlucose, “Glucose.sav ");
se FileExists (“Bolus.sav ") allora LoadListViewToFile (lstvBolus, “Bolus.sav ");
se FileExists (“FoodDB.sav ") allora LoadListViewToFile (lstvFoodDB, “FoodDB.sav ");
se FileExists (“OwnDB.sav ") allora LoadListViewToFile (lstvOwnDB, “OwnDB.sav ");
end;
(*---------------------------------------------------*) le lime del

These (se non esiste) saranno generate e salvo al application-folder.
But ora che ho fatto i dati denominati del dispositivo di piegatura nel applicazione-dispositivo di piegatura e nel I
want il programm per conservare (o generare le lime) nel dispositivo di piegatura. quess del
I devo cambiare il codice. Può qualcuno aiutarlo?

P. class= del

Risposta : Conservare le lime ad un dispositivo di piegatura specificato

Cambiare appena i percorsi per comprendere i dati \, cioè


procedura TMainForm.FormClose (mittente: TObject; azione di varietà: TCloseAction);
cominciare
  SaveListViewToFile (lstvGlucose, “dati \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, “dati \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, “dati \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, “dati \ OwnDB.sav ");
estremità;
(*---------------------------------------------------*)
procedura TMainForm.FormCreate (mittente: TObject);
cominciare
  se FileExists (“dati \ Glucose.sav ") allora LoadListViewToFile (lstvGlucose, “dati \ Glucose.sav ");
  se FileExists (“dati \ Bolus.sav ") allora LoadListViewToFile (lstvBolus, “dati \ Bolus.sav ");
  se FileExists (“dati \ FoodDB.sav ") allora LoadListViewToFile (lstvFoodDB, “dati \ FoodDB.sav ");
  se FileExists (“dati \ OwnDB.sav ") allora LoadListViewToFile (lstvOwnDB, “dati \ OwnDB.sav ");
estremità;
(*---------------------------------------------------*)