Conversão De Dados

Delphi

06/07/2004

Bom pessoal estou tendo dificuldades na conversão de dados de um arquivo binario. Al ler alguns dados do tipo string tudo bem mas quando 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 - aqui os dados estão ok
strDados := ´´;
for i := 1 to 32 do
begin
Read(F,chrByte);
strDados := strDados + chrByte;
end;
Edit1.Text := strDados;
// quantidade de segundos - estes dados que estão com problema
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;



Pauloevaristo

Pauloevaristo

Curtidas 0
POSTAR