Запись в типизированый файл

@sysop999 · Регистрация: 07.04.2012

Author24 — интернет-сервис помощи студентам

Нужно сделать запись в типизированый файл, обновления данных с определенной позиции.

Pascal

var
f:file of integer;
value,i:integer;
begin
random;
assign (f,'f.dat');
rewrite (f);
for i:=0 to 29 do
   begin
   value:=random(100);
   write (f,value);
   end;
close (f);
value:=100;
reset (f);
write(f,value); {-------- ОШИБКА ЗАПИСИ НА ДИСК ?????}

Тоесть как по книжкам, начинается с позиции 0, и для типизированых файлов, можно использовать reset, что бы не переписывать файл заново, обновлять.
Как записать нужное число в позицию 0?. Заранее благодарен.

Добавлено через 6 минут
С книги Фаронова
В Турбо Паскале разрешается обращаться к типизированным файлам, открытым процедурой RESET (т.е. для чтения информации), с помощью процедуры WRITE (т.е. для записи). Такая возможность позволяет легко обновлять ранее созданные типизированные файлы.

@BlackFox · 19.05.2012, 15:20

Используй процедуру seek(i). Устанавливает указатель на i элемент в файле.

@sysop999 · 19.05.2012, 15:54 **[ТС]**

Сообщение от BlackFox

Используй процедуру seek(i). Устанавливает указатель на i элемент в файле.

Это да =), у меня вопрос именно как сделать запись в типизированый файл если он уже открыт RESET, у меня пишет при WRITE "ошибка записи на диск" =(

Добавлено через 29 минут
Сенк разбрался, глюк сборки турбо паскаля 7.0 какогото неводомого автора, скулпак, которая запускаетсья в досбокс.

@BlackFox 17 / 17 / 3 Регистрация: 27.12.2011 Сообщений: 81
	19.05.2012, 15:20	2
	Используй процедуру seek(i). Устанавливает указатель на i элемент в файле. 0

@sysop999 0 / 0 / 0 Регистрация: 07.04.2012 Сообщений: 64
	19.05.2012, 15:54 [ТС]	3
	Сообщение от BlackFox Используй процедуру seek(i). Устанавливает указатель на i элемент в файле. Это да =), у меня вопрос именно как сделать запись в типизированый файл если он уже открыт RESET, у меня пишет при WRITE "ошибка записи на диск" =( Добавлено через 29 минут Сенк разбрался, глюк сборки турбо паскаля 7.0 какогото неводомого автора, скулпак, которая запускаетсья в досбокс. 0