Cuestión : Comprobar el archivo del ik existen

Los estimados expertos,

I tienen esto para cargar y para ahorrar los 3 listviews a file.

procedure TMainForm.FormClose (Sender: TObject; acción del var: 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; el

But cuando comienzo mi uso la primera vez los archivos no hace las salidas yet.
so, yo consigue a 3 veces un mensaje de error. Cómo puedo prevenir this.
That el programm primero mirar si el otherwist del fileexist crea it.

P class= del

Respuesta : Comprobar el archivo del ik existen

La solución fundada es muy creativa, pero por abandono los archivos serán salvados en (o cargados de) carpeta de los usos por lo tanto
   ExtractFilePath (Application.ExeName)    es innecesario.