Pytanie : Sprawdzać ik kartoteka istnieć

Kochany ekspert,

I mieć/> i save the 3 listviews file.

procedure TMainForm.FormClose (Sender: TObject; var Akcja: 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;

But gdy I zaczynać mój zastosowanie mój the kartoteka wyjście yet.
so, I dostawać 3 czas błąd wiadomość. Jak móc I this.
That the programm najpierw patrzeć jeżeli the fileexist otherwist tworzyć it.

P

Odpowiedź : Sprawdzać ik kartoteka istnieć

Zakładać rozwiązanie być bardzo kreatywnie, ale obok default the kartoteka ratować w (lub ładować od) zastosowanie falcówka tym samym
   ExtractFilePath (Application.ExeName)    być niepotrzebny.