Работа с файлами

[AlexY]

кусок кода в котором есть открытие dbf файла для импорта в Галактику при отсутствии такого файла выдает ошибку и закрывает Галактику.

fdiskr:=dbfOpen('c:\expimp\galimport.dbf',stOpen);

хотя судя из описания fdiskr в этом случае должна получать значение 0. якобы это стандартная ситуация когда файла может не быть... есть возможность проверить существование файла или отловить исключение?

[edward_K]

if fileexist('c:\expimp\galimport.dbf')
{

}
else message('Файл не найден')

[AlexY]

у меня Галактика 5.74 . при компиляции vip говорит, что такой функции нет. может она както не так называется?

[AlexY]

нашел блок _try {}
НО! даже если я в этот блок помещаю
fdiskr:=dbfOpen('c:\expimp\galimport.dbf',stOpen);
итакого файла на диске не существует - выдается рантаймерор и галактика закрывается! кто знает что можно сделать?

[edward_K]

а extfun.res подключен в cfg?
там описание этой функции сидит

[AlexY]

я обошел этот момент следующим образом. в файл проекта prj дописал строку
#include external.fun

в этом файле есть строка
function FileExist(string ):boolean; external;

где на самом деле лежит эиа функция не понят, но помогло.

Всем спасибо