Como usar a função BlockRead() para ler um ou mais bytes de um arquivo

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  arquivo: File;
  valor: Byte;
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 1);  // tamanho do registro = 1 byte

  // vamos ler um byte e guardá-lo na variável valor
  BlockRead(arquivo, valor, 1);

  // vamos exibir o valor do byte lido
  ShowMessage(IntToStr(valor));

  // vamos fechar o arquivo
  CloseFile(arquivo);
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  arquivo: File;
  valor: Integer; // equivale a 4 bytes
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 4);  // tamanho do registro = 4 bytes

  // vamos ler um Integer e guardá-lo na variável valor
  BlockRead(arquivo, valor, 1);

  // vamos exibir o valor do Integer lido
  ShowMessage(IntToStr(valor));

  // vamos fechar o arquivo
  CloseFile(arquivo);
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  arquivo: File;
  valores: array[0..3] of Byte; // uma matriz de 4 bytes
  i: integer;
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 1);  // tamanho do registro = 1 byte

  // vamos ler o grupo de 4 bytes e guardá-lo na matriz valores
  BlockRead(arquivo, valores, sizeof(valores));

  // vamos mostrar os valores lidos
  for i := 0 to 3 do
    begin
      ShowMessage(IntToStr(valores[i]));
    end;

  // vamos fechar o arquivo
  CloseFile(arquivo);
end;