Вопрос : Сохраньте архивы к определенному скоросшивателю

Hi,

I имеет это для сохранять данные нескольких listviews к file.

procedure TMainForm.FormClose (Sender: TObject; действие 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
если FileExists («Glucose.sav ") после этого LoadListViewToFile, то (lstvGlucose, «Glucose.sav ");
если FileExists («Bolus.sav ") после этого LoadListViewToFile, то (lstvBolus, «Bolus.sav ");
если FileExists («FoodDB.sav ") после этого LoadListViewToFile, то (lstvFoodDB, «FoodDB.sav ");
если FileExists («OwnDB.sav ") после этого LoadListViewToFile, то (lstvOwnDB, «OwnDB.sav ");
end;
(*---------------------------------------------------*) архивы

These (если не существует), то будут созданы и за исключением к application-folder.
But теперь, котор я делал данные по скоросшивателя вызванные в применени-скоросшивателе и I
want programm для того чтобы сохранить (или создать архивы) в скоросшивателе. quess
I я должен изменить Кодего. Может кто-то помочь мне?

P. class=

Ответ : Сохраньте архивы к определенному скоросшивателю

Как раз измените курсы для того чтобы включить данные \, т.е.


процедура TMainForm.FormClose (прислужник: TObject; действие var: TCloseAction);
начните
  SaveListViewToFile (lstvGlucose, «данные \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, «данные \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, «данные \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, «данные \ OwnDB.sav ");
конец;
(*---------------------------------------------------*)
процедура TMainForm.FormCreate (прислужник: TObject);
начните
  если FileExists («данные \ Glucose.sav ") после этого LoadListViewToFile, то (lstvGlucose, «данные \ Glucose.sav ");
  если FileExists («данные \ Bolus.sav ") после этого LoadListViewToFile, то (lstvBolus, «данные \ Bolus.sav ");
  если FileExists («данные \ FoodDB.sav ") после этого LoadListViewToFile, то (lstvFoodDB, «данные \ FoodDB.sav ");
  если FileExists («данные \ OwnDB.sav ") после этого LoadListViewToFile, то (lstvOwnDB, «данные \ OwnDB.sav ");
конец;
(*---------------------------------------------------*)