Frage : Akten zu einem spezifizierten Faltblatt speichern

Hallo, haben

I dieses für das Sparen der Daten einiger listviews zu file.

procedure TMainForm.FormClose (Sender: TObject; var-Tätigkeit: 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
wenn FileExists („Glucose.sav ") dann LoadListViewToFile (lstvGlucose, „Glucose.sav ");
wenn FileExists („Bolus.sav ") dann LoadListViewToFile (lstvBolus, „Bolus.sav ");
wenn FileExists („FoodDB.sav ") dann LoadListViewToFile (lstvFoodDB, „FoodDB.sav ");
wenn FileExists („OwnDB.sav ") dann LoadListViewToFile (lstvOwnDB, „OwnDB.sav ");
end;
(*---------------------------------------------------*)

These werden Akten (wenn nicht existiert), und außer zum application-folder.
But hergestellt, jetzt, das ich Faltblatt benannten Daten im Anwendungfaltblatt und im I
want das programm (oder die Akten herstellen) im Faltblatt habe speichern lassen.
I quess muss ich den Code ändern. Kann jemand mir helfen?

P.

Antwort : Akten zu einem spezifizierten Faltblatt speichern

Die Wege einfach ändern, um Daten einzuschließen \, d.h.


Verfahren TMainForm.FormClose (Absender: TObject; var-Tätigkeit: TCloseAction);
anfangen
  SaveListViewToFile (lstvGlucose, „Daten \ Glucose.sav ");
  SaveListViewToFile (lstvBolus, „Daten \ Bolus.sav ");
  SaveListViewToFile (lstvFoodDB, „Daten \ FoodDB.sav ");
  SaveListViewToFile (lstvOwnDB, „Daten \ OwnDB.sav ");
Ende;
(*---------------------------------------------------*)
Verfahren TMainForm.FormCreate (Absender: TObject);
anfangen
  wenn FileExists („Daten \ Glucose.sav ") dann LoadListViewToFile (lstvGlucose, „Daten \ Glucose.sav ");
  wenn FileExists („Daten \ Bolus.sav ") dann LoadListViewToFile (lstvBolus, „Daten \ Bolus.sav ");
  wenn FileExists („Daten \ FoodDB.sav ") dann LoadListViewToFile (lstvFoodDB, „Daten \ FoodDB.sav ");
  wenn FileExists („Daten \ OwnDB.sav ") dann LoadListViewToFile (lstvOwnDB, „Daten \ OwnDB.sav ");
Ende;
(*---------------------------------------------------*)