Conversão De Dados

[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;

[s3c]

Se o arquivo é binário, porque você utiliza f:TextFile ?

[pauloevaristo]

Eu coloquei desta maneira pois foi como um exemplo que vi. Se não for te incomodar muito, gostaria que você me enviasse seu e-mail pra eu te mandar uma copia do arquivo pra voce ver se é possível me ajudar?

Abraço

[s3c]

Bom, sinto muito mas não tenho tempo para fazer escovação de bits em arquivos binários, mas se um campo inteiro é gravado na sua forma original(4 bytes) uma dica é:

var p:PChar; i:Integer;

begin

i := 123456789;

p := AllocMem(4);

Move(i, p^, 4); // armazena o valor em 4 bytes de memória.

Move(p^, i, 4); // recupera da memória e joga na variável i.

FreeMem(p);

end;

Ou seja, você lê do arquivo para uma área de 4 bytes e depois pelo Move, você o coloca na variável do tipo Integer.