Vraag : Sparen dossiers aan een gespecificeerde omslag

Hallo, heeft

I dit voor het opslaan van de gegevens van verscheidene listviews aan file.

procedure TMainForm.FormClose (Sender: TObject; var Actie: 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
als FileExists („Glucose.sav“) toen LoadListViewToFile (lstvGlucose, „Glucose.sav“);
als FileExists („Bolus.sav“) toen LoadListViewToFile (lstvBolus, „Bolus.sav“);
als FileExists („FoodDB.sav“) toen LoadListViewToFile (lstvFoodDB, „FoodDB.sav“);
als FileExists („OwnDB.sav“) toen LoadListViewToFile (lstvOwnDB, „OwnDB.sav“);
end;
(**)

These- dossiers (als niet) bestaat aan toepassing-folder.
But worden gecre�ërd en sparen nu ik een omslag genoemd Gegevens in de toepassing-omslag en I
want programm heb gemaakt (of de dossiers) creëren in de omslag te bewaren.
I quess moet ik de code veranderen. Kan iemand me helpen?

P.

Antwoord : Sparen dossiers aan een gespecificeerde omslag

Verander enkel de wegen om Gegevens \ te omvatten, d.w.z.


procedure TMainForm.FormClose (Afzender: TObject; var Actie: TCloseAction);
begin
  SaveListViewToFile (lstvGlucose, „Gegevens \ Glucose.sav“);
  SaveListViewToFile (lstvBolus, „Gegevens \ Bolus.sav“);
  SaveListViewToFile (lstvFoodDB, „Gegevens \ FoodDB.sav“);
  SaveListViewToFile (lstvOwnDB, „Gegevens \ OwnDB.sav“);
eind;
(**)
procedure TMainForm.FormCreate (Afzender: TObject);
begin
  als FileExists („Gegevens \ Glucose.sav“) toen LoadListViewToFile (lstvGlucose, „Gegevens \ Glucose.sav“);
  als FileExists („Gegevens \ Bolus.sav“) toen LoadListViewToFile (lstvBolus, „Gegevens \ Bolus.sav“);
  als FileExists („Gegevens \ FoodDB.sav“) toen LoadListViewToFile (lstvFoodDB, „Gegevens \ FoodDB.sav“);
  als FileExists („Gegevens \ OwnDB.sav“) toen LoadListViewToFile (lstvOwnDB, „Gegevens \ OwnDB.sav“);
eind;
(**)