FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
carga de enteros 16-bits.
Hola.
A ver si alguien puede ayudarme. Tengo un fichero binario, donde se almacenan numeros enteros de 16-bits, mediante dos caracteres. Para cargarlos a una matriz de enteros hago el siguiente algoritmo: var i,j:integer; sfile:file of byte; nombre:string; p:byte; a:string; f:array[0..512,0..512] of word; begin if opendialog1.Execute then nombre:=opendialog1.FileName; AssignFile(sfile,nombre); FileMode := fmOpenRead; Reset(sfile); Seek(sfile, 5760); for j:=0 to 511 do for i:=0 to 511 do begin a:=''; read(sfile,p); a:=a+inttohex(p,2); read(sfile,p); a:='$'+a+inttohex(p,2); f[i,j]:=strtoint(a); end; end; ¿Hay algún algoritmo que tome los dos caracteres de golpe y los transforme al entero de 16-bits?. Gracias. |
|
|
|