Страница 1 из 1

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

Добавлено: 16 фев 2004, 20:57
AlexY
кусок кода в котором есть открытие dbf файла для импорта в Галактику при отсутствии такого файла выдает ошибку и закрывает Галактику.

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

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

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

Добавлено: 17 фев 2004, 11:39
edward_K
if fileexist('c:\expimp\galimport.dbf')
{

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

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

Добавлено: 17 фев 2004, 13:03
AlexY
у меня Галактика 5.74 . при компиляции vip говорит, что такой функции нет. может она както не так называется?

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

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

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

Добавлено: 17 фев 2004, 16:43
edward_K
а extfun.res подключен в cfg?
там описание этой функции сидит

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

Добавлено: 17 фев 2004, 16:55
AlexY
я обошел этот момент следующим образом. в файл проекта prj дописал строку
#include external.fun

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

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

Всем спасибо