Результат аналогичный. И редактировал, и удалял :) Значит, кол-во открытий != закрытий. (+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

[an error occurred while processing this directive] Результат аналогичный. И редактировал, и удалял :) Значит, кол-во открытий != закрытий. (+)
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Отправлено AZ 08 августа 2006 г. 14:04
В ответ на: речь идет про чтение... открыл, считал инфу из файла, закрыл, удалять не получается, говорит "файл испоьзуется" отправлено Котик 08 августа 2006 г. 13:54

procedure TForm1.Button2Click(Sender: TObject); var fh: textfile; s: string; begin assignfile(fh,'D:\Test.txt'); reset(fh); read(fh,s); closefile(fh); end;



Составить ответ
 ||| 
Конференция
 ||| 
Архив



Ответы

Мдя... где-то меня видать переклинило.... или считать разучился :((( — Котик   (08.08.2006 14:06 81.91.34.246, пустое)

Зы: 4 assignfile+reset и 4 closefile необремененных условиями... — Котик   (08.08.2006 14:16 81.91.34.246, пустое)

Установите в опциях компилятора I/O checking. При закрытии уже закрытого файла выскочит ошибка. — MrSerg   (08.08.2006 14:30 85.237.46.47, пустое)

Это не то, это лечение послежствий без поиска причины... кстати можно даеко не ходить и пользовать {$I+} и {$I-} — Котик   (08.08.2006 15:05 81.91.34.246, пустое)




У меня тоже таких проблем не было, если всё позакрывал... — МикроДИП   (08.08.2006 14:10 222.248.207.44, пустое)





















Отправка ответа


Имя (обязательно):  
Пароль:  
E-mail:  


Тема (обязательно):




Сообщение:




Ссылка на URL:  
Название ссылки:  
URL изображения:  











	




	


	










Перейти к списку ответов
 ||| 
Конференция
 ||| 
Архив
 ||| 
Главная страница
 ||| 
Содержание