Вопрос : Проверите архив ik существуйте

Дорогие специалисты,

I имеют это для того чтобы нагрузить и сохранить 3 listviews к file.

procedure TMainForm.FormClose (Sender: TObject; действие 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;

But когда я начинаю мое применение the first time архивы не делает выходы yet.
so, я получает 3 временам сообщение ошибки. Как могу я предотвратить this.
That programm сперва посмотрите если otherwist fileexist создает it.

P class=

Ответ : Проверите архив ik существуйте

Основанное разрешение очень творческо, но мимо не выполняет архивы обязательство будет сохранено в (или нагружено от) скоросшивателе применений поэтому
   ExtractFilePath (Application.ExeName)    ненужно.