Bom pessoal estou tendo dificuldades na conversão de dados de um arquivo binario. Al ler alguns dados do tipo string tudo bem mas qunado tento ler quatro bytes que são do tipo inteiro os valores não estão sendo convertidos de forma adequada, favor olhar parte do codigo que usei para ver se isso mesmo ou se estou fazendo algo errado:
Pergunta
pauloevaristo
Bom pessoal estou tendo dificuldades na conversão de dados de um arquivo binario. Al ler alguns dados do tipo string tudo bem mas qunado tento ler quatro bytes que são do tipo inteiro os valores não estão sendo convertidos de forma adequada, favor olhar parte do codigo que usei para ver se isso mesmo ou se estou fazendo algo errado:
procedure TFRelatorio.Button12Click(Sender: TObject);
var F: TextFile; strDados: String; chrByte: Char; intByte,i: Integer;
begin
AssignFile(F,'c:\arquivo.PDB');
Reset(F);
// nome
strDados := '';
for i := 1 to 32 do
begin
Read(F,chrByte);
strDados := strDados + chrByte;
end;
Edit1.Text := strDados;
// quantidade de segundos
strDados := '';
for i := 1 to 4 do
begin
Read(F,chrByte);
intByte := Ord(chrByte);
strDados := strDados + IntToStr(intByte);
end;
Edit2.Text := strDados;
CloseFile(F);
end;
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.