Нетипизированный файл

[Bizunov]

Всем привет.
Помогите пожалуйста считать из нетипизированного файла (бинарника) последовательность чисел (0..255). Благодарю.

[Swarog]

для чтения используй

procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

все астальное поиск в помощь, иначе сам запутаешься

var 
  MyFile : file;
begin
  assign(MyFile,Filename);
  reset(MyFile,1);
  {для записи}
  Blockwrite(MyFile,item,sizeof(item));
  {для чтения}
  BlockRead(MyFile,item,sizeof(item));
  close(MyFile);
end;

коротенький пример для затравки

[Bizunov]

Спасибо! Оказывается, нужно было использовать SizeOf! Как я понял, эта функция возвращает размер переменной в байтах, верно?
И забегая вперед,хочу спросить, как записывать числа больше 255 байт? Юзать побитовую математику или достаточно изменить кол-во считываемых байт в в BlockWrite/Read?

[Swarog]

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

И забегая вперед,хочу спросить, как записывать числа больше 255 байт? Юзать побитовую математику или достаточно изменить кол-во считываемых байт в в BlockWrite/Read?

что значит число больше 255 байт? При чем побитовая арифметика?

в принципе читаемый и записываемый блок ограничен 2гб. Если вы имеете ввиду чтение запись числа типа интежер и инт 64 то вот еще пример для размышления

var 
  MyFile : file;
  i: integer;
  i64: int64;
  ArOfI: array [0..9] of integer;
begin
  assign(MyFile,Filename);
  reset(MyFile,1);
  Blockwrite(MyFile,i,sizeof(integer) {4 байта});

  Blockwrite(MyFile,i64,sizeof(int64) {8 байт});

  Blockwrite(MyFile,@ArOfI[0],sizeof(ArOfI[0]) * length(ArOfI){4*10 = 40 байт});
 // точно не помню может и без собаки нужно
  close(MyFile);
end;

[Bizunov]

А, ну все, я понял, спасибо. Сказываются годы работы в ГМ и тупые функции для работы с бинарниками )