Не могу записать в нетипизированный файл

@danek130995 · Регистрация: 25.05.2014

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

Добрый вечер! Пытаюсь записать в нетипизированный файл, и получаю ошибку Uknown Run-Time Error:1784.

Delphi

Type
Zap = record
Id_zachet, id_gr: integer;
Surname, Name: string [20];
Patronymic: string[30];
end;
Type
Block = record
Zap_block: array[1..5] of zap;
End;
 
 
var
F:File of Block;
V,v1: Block;         
 
  AssignFile(F, 'file.txt') ;
  if not (FileExists('file.txt')) then
  Rewrite(F,sizeof(v))
  else
  Reset(F,sizeof(v));    
 
 
 Seek(F,FileSize(f));
  v.Zap_block[1].Id_zachet:=strtoint(Edit1.text);
  v.Zap_block[1].Surname:=Edit2.text;
  v.Zap_block[1].Name:=Edit3.text;
  v.Zap_block[1].Patronymic:=Edit4.text; ;
  v.Zap_block[1].id_gr:=strtoint(Edit5.text);
 
  blockwrite(f,v,sizeof(v));     //получаю ошибку

Если же пытаюсь записать что то другое, например переменную типа int, то записывается. Помогите пожалуйста.

quwy · 06.03.2015, 18:02

Если делаете Reset(F,sizeof(v)), то записывать надо как blockwrite(f,v,1). Либо наоборот: если Reset(F,1), то blockwrite(f,v,sizeof(v)).

Добавлено через 1 минуту

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

file.txt

Вот только файл у вас не текстовый получится, лучше не давать ему расширение TXT.

@northener · 06.03.2015, 18:24

И где тут нетипизированный файл?

quwy · 06.03.2015, 18:26

Не по теме:

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

И где тут нетипизированный файл?

А действительно. Как в анекдоте получилось: либо трусы надень, либо крестик сними :)

@danek130995 · 06.03.2015, 20:56 **[ТС]**

quwy, northener, там должно быть просто F:File, забыл стереть просто) Программа была написана ранее для типизированных файлов, а препод заставил переделывать для нетипизированных. А разве blockwrite(f,v,1) здесь 1(байт?) не указывает на размер в байтах? Я пишу blockwrite(f,v,sizeof(v)), чтобы при записи и открытии Reset(F,v) размер буфера равнялся размеру v. Или 1 здесь-это что то другое? Что это такое? Спасибо всем за ответы!

@northener · 06.03.2015, 21:21

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

А разве blockwrite(f,v,1) здесь 1(байт?) не указывает на размер в байтах?

Нет. Это не количество байт. Это количество "записей". Размер "записи" указывается вторым параметром процедуры Reset. Если не указано, то размер "записи" 128 байт.

@danek130995 · 06.03.2015, 21:53 **[ТС]**

northener, получается, когда я указал Reset(F,1); файл открывается с длиной записи 1 байт? Почему тогда, когда я сейчас делаю после этого blockread(f,v,sizeof(v)); и blockwrite(f,v,sizeof(v)); данные считываются и записываются нормально? Ведь размер v=420 байт , а я указал в Reset 1 байт. Получается, я пытаюсь считать 420 записей, а разрешено только 1 байт? И если я пишу sizeof(v) в BlockWrite, получается, я говорю ему, что количество записей считываемых равно 420 байтам? Как то странно. В чем я запутался, помогите пожалуйста

@northener · 06.03.2015, 23:23

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

Получается, я пытаюсь считать 420 записей, а разрешено только 1 байт?

Ты пытаешься считать 420 записей размером в 1 байт. А 420 байт это и есть размер той структуры, которую ты считываешь. Так что все правильно.

@danek130995 · 07.03.2015, 10:35 **[ТС]**

northener, я кажется понял!) Т.е. я при blockread(f,v,sizeof(v)) считываю 420 раз по 1 байту(т.к. Reset(F,1) ), что и равняется размеру v. С таким же успехом я могу открыть файл Reset(F,420), и уже спокойно считывать blockread(f,v,1). Спасибо огромное!

Не могу записать в нетипизированный файл

Решение

Решение

quwy Native x86 5594 / 3338 / 951 Регистрация: 13.02.2013 Сообщений: 10,587
	06.03.2015, 18:02	2
	Если делаете Reset(F,sizeof(v)), то записывать надо как blockwrite(f,v,1). Либо наоборот: если Reset(F,1), то blockwrite(f,v,sizeof(v)). Добавлено через 1 минуту Сообщение от danek130995 file.txt Вот только файл у вас не текстовый получится, лучше не давать ему расширение TXT. 1

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,450
	06.03.2015, 18:24	3
	И где тут нетипизированный файл? 1

quwy
	06.03.2015, 18:26 #4
	Не по теме: Сообщение от northener И где тут нетипизированный файл? А действительно. Как в анекдоте получилось: либо трусы надень, либо крестик сними :) 0

@danek130995 32 / 32 / 3 Регистрация: 25.05.2014 Сообщений: 1,137
	06.03.2015, 20:56 [ТС]	5
	quwy, northener, там должно быть просто F:File, забыл стереть просто) Программа была написана ранее для типизированных файлов, а препод заставил переделывать для нетипизированных. А разве blockwrite(f,v,1) здесь 1(байт?) не указывает на размер в байтах? Я пишу blockwrite(f,v,sizeof(v)), чтобы при записи и открытии Reset(F,v) размер буфера равнялся размеру v. Или 1 здесь-это что то другое? Что это такое? Спасибо всем за ответы! 0

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,450
	06.03.2015, 21:21	6
	Сообщение было отмечено danek130995 как решение Решение Сообщение от danek130995 А разве blockwrite(f,v,1) здесь 1(байт?) не указывает на размер в байтах? Нет. Это не количество байт. Это количество "записей". Размер "записи" указывается вторым параметром процедуры Reset. Если не указано, то размер "записи" 128 байт. 1

@danek130995 32 / 32 / 3 Регистрация: 25.05.2014 Сообщений: 1,137
	06.03.2015, 21:53 [ТС]	7
	northener, получается, когда я указал Reset(F,1); файл открывается с длиной записи 1 байт? Почему тогда, когда я сейчас делаю после этого blockread(f,v,sizeof(v)); и blockwrite(f,v,sizeof(v)); данные считываются и записываются нормально? Ведь размер v=420 байт , а я указал в Reset 1 байт. Получается, я пытаюсь считать 420 записей, а разрешено только 1 байт? И если я пишу sizeof(v) в BlockWrite, получается, я говорю ему, что количество записей считываемых равно 420 байтам? Как то странно. В чем я запутался, помогите пожалуйста 0

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,450
	06.03.2015, 23:23	8
	Сообщение было отмечено danek130995 как решение Решение Сообщение от danek130995 Получается, я пытаюсь считать 420 записей, а разрешено только 1 байт? Ты пытаешься считать 420 записей размером в 1 байт. А 420 байт это и есть размер той структуры, которую ты считываешь. Так что все правильно. 1

@danek130995 32 / 32 / 3 Регистрация: 25.05.2014 Сообщений: 1,137
	07.03.2015, 10:35 [ТС]	9
	northener, я кажется понял!) Т.е. я при blockread(f,v,sizeof(v)) считываю 420 раз по 1 байту(т.к. Reset(F,1) ), что и равняется размеру v. С таким же успехом я могу открыть файл Reset(F,420), и уже спокойно считывать blockread(f,v,1). Спасибо огромное! 0