Страница 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;
где на самом деле лежит эиа функция не понят, но помогло.
Всем спасибо