VPF::НЕтепезированный файл - Форум программистов

bibop

Дата 7.2.2009, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 7.2.2009

Репутация: нет
Всего: нет

Нужно добавить в задачу не тепезированный файл и чтоб можно быдо считать с него запись.
ВОТ КОД

Код

Type
Date = Record
Month : 1..12;
Day : 1..31;
Year : 1900..2000
end;
Person = Record
Name, SecondName, SurName : string [20];
Sex : ( Male, Female );
Speciality : Word;
Birthday : Date
end;
var i:person;
s:byte;
begin
 with i do
 begin
  Write('Name=');readln(Name);
  Write('SurName=');readln( SurName);
  write('Sex (0 - Male; 1 - Female )');readln(s);
   if s=0 then sex:=male else sex:=female;
  Write('Speciality=');readln(Speciality);
  Writeln('Birthday:');
  with birthday do
  begin
   Write('Year=');readln(Year);
   Write('Month=');readln(Month);
   Write('Day=');readln(Day);
  end;
 end;
 Writeln('/\/\/\/\/\/\/\/\/');
 with i do
 begin
  Writeln('Name=',Name);
  Writeln(' SurName=', SurName);
  write('Sex = '); if sex=male then writeln('male') else writeln('female');
  Writeln('Speciality=',Speciality);
  Writeln('Birthday:');
  with birthday do
  begin
   Writeln('Year=',Year);
   Writeln('Month=',Month);
   Writeln('Day=',Day);
  end;
 end;
readln
end.

Это сообщение отредактировал(а) volvo877 - 7.2.2009, 18:21

spider13

Дата 8.2.2009, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.2.2009

Репутация: нет
Всего: нет

Если не изменяет память, то в паскале есть функции blockread и blockwrite. Первым параметром идет хендл файла, вторым буфер. а третьим размер считываемой или записываемой области.
Считать или записать в файл ты можешь любые данные.

Код


Type
Date = Record
Month : 1..12;
Day : 1..31;
Year : 1900..2000
end;
var
  f:File;
  D: Date;
begin
.....
BlockRead(F, D, SizeOf(d));
....
BlockWrite(F,D,SizeOf(D));
....
end;

volvo877

Дата 9.2.2009, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(spider13 @ 8.2.2009, 09:16

)

а третьим размер считываемой или записываемой области

Угу... Только не в байтах, а в размерах записи, указанных при открытии файла. То есть, для того, чтобы это были байты, надо открывать файл с размером записи = 1:

Код

Reset(f, 1); { или Rewrite(f, 1); }

. Если не указать ничего после запятой, то размер блока = 128, и читаться будет в 128 раз больше данных, чем нужно... Естественно, все, что за пределами буфера, перезапишется, и программа может начать глючить по-страшному...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »