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