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

← →
kserg@ukr.net (2002-08-20 16:34) [0]

Привет.
Нижеследующая конструкция для перезаписи тхт-файла
при уже открытом файле вызывает ошибку I/O 32

AssignFile(F,"ExportToExcel.xls");
ReWrite(F);

Как проверить неоткрыт ли этот файл или может подскажите более надежный алгоритм работы с файлом.

спасибо

← →
Игорь Шевченко © (2002-08-20 16:42) [1]

Вот I/O error 32 и служит признаком работы с уже открытым файлом.
Надежный алгоритм: try ... except ... end;

← →
BOA_KAA © (2002-08-20 19:11) [2]

Вариянт:
{I-}
AssignFile(F,"ExportToExcel.xls");
ReWrite(F);
{I+}

if IOResult<>0 then дын-дын-дын //ежели нет ошибки

Проверено, даже в Turbo Paskal"е работает:-)))

Вроде нигде не наврал...:-))

try except end;
Но лучше выбрать другой метод доступа к файлу, который позволяет устанавливать методы доступа, вероятнее ни один из них не сработает, если открыто Экселем

Работа с файлом Найти похожие ветки