Скачать: CL | DM;

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

← →
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"е работает:-)))

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

---

← →
Anatoly Podgoretsky ©   (2002-08-20 19:23) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c