Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

процедура reset   Найти похожие ветки 

← →
ghg ©   (2003-11-11 11:54) [0]

господа
есть одна непонятка
ниже дан код, при атрибуте на файле Read-Only вылетает EInOutError "File access denied"

Вопрос: почему это происходит, ведь я из файла только читаю и ничего изменять не собираюсь?

procedure TData_square.load(file_name : string);
var ooo : file;
begin
assignfile(ooo,file_name);
try
reset(ooo,size_block);
try
blockread(ooo,size_block);
...
...

---

← →
Zergling ©   (2003-11-11 12:00) [1]

Перед Reset
FileMode := 0;

---

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

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.035 c