Fórum Conversão De Dados #241868

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;