процедура 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;

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