Question : Vérifier le dossier d'ik existent

Les chers experts, le

I ont ceci pour charger et sauver les 3 listviews à file.

procedure TMainForm.FormClose (Sender : TObject ; action de variété : TCloseAction) ;
begin
SaveListViewToFile (lstvGlucose, « Glucose.sav ") ;
SaveListViewToFile (lstvBolus, « Bolus.sav ") ;
SaveListViewToFile (lstvFoodDB, « FoodDB.sav ") ;
end ;
(*---------------------------------------------------*)
procedure TMainForm.FormCreate (Sender : TObject) ;
begin
LoadListViewToFile (lstvGlucose, « Glucose.sav ") ;
LoadListViewToFile (lstvBolus, « Bolus.sav ") ;
LoadListViewToFile (lstvFoodDB, « FoodDB.sav ") ;
end ; le

But quand je commence mon application la première fois les dossiers ne fait pas les sorties yet.
so, je reçoivent à 3 fois un message d'erreur. Comment peux j'empêcher this.
That le programm d'abord regarder si l'otherwist de fileexist créent it.

P class= de

Réponse : Vérifier le dossier d'ik existent

La solution fondée est très créatrice, mais transfère près les dossiers sera sauvée dans (ou chargée de) la chemise d'applications donc
   ExtractFilePath (Application.ExeName)    est inutile.