Pytanie : Save kartoteka precyzować falcówka

Cześć,

I mieć/> dla the dane kilka listviews file.

procedure TMainForm.FormClose (Sender: TObject; var Akcja: 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
jeżeli FileExists ("Glucose.sav ") wtedy LoadListViewToFile (lstvGlucose, "Glucose.sav ");
jeżeli FileExists ("Bolus.sav ") wtedy LoadListViewToFile (lstvBolus, "Bolus.sav ");
jeżeli FileExists ("FoodDB.sav ") wtedy LoadListViewToFile (lstvFoodDB, "FoodDB.sav ");
jeżeli FileExists ("OwnDB.sav ") wtedy LoadListViewToFile (lstvOwnDB, "OwnDB.sav ");
end;
(*---------------------------------------------------*)

These kartoteka (jeśli nie istnieć) tworzyć i oprócz the application-folder.
But teraz I robić falcówka dzwonić Dane w the zastosowanie-falcówka i I
want the programm save (lub the kartoteka) w the falcówka.
I quess I musieć the kod. Móc someone?

P.

Odpowiedź : Save kartoteka precyzować falcówka

Właśnie zmieniać the ścieżka Dane \, I. e.


procedura TMainForm.FormClose (Nadawca: TObject; var Akcja: TCloseAction);
zaczynać
  SaveListViewToFile (lstvGlucose, "Dane \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, "Dane \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, "Dane \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, "Dane \ OwnDB.sav ");
końcówka;
(*---------------------------------------------------*)
procedura TMainForm.FormCreate (Nadawca: TObject);
zaczynać
  jeżeli FileExists ("Dane \ Glucose.sav ") wtedy LoadListViewToFile (lstvGlucose, "Dane \ Glucose.sav ");
  jeżeli FileExists ("Dane \ Bolus.sav ") wtedy LoadListViewToFile (lstvBolus, "Dane \ Bolus.sav ");
  jeżeli FileExists ("Dane \ FoodDB.sav ") wtedy LoadListViewToFile (lstvFoodDB, "Dane \ FoodDB.sav ");
  jeżeli FileExists ("Dane \ OwnDB.sav ") wtedy LoadListViewToFile (lstvOwnDB, "Dane \ OwnDB.sav ");
końcówka;
(*---------------------------------------------------*)