Текущий архив: 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.43 MB
Время: 0.011 c
