FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Cargar array of char de un archivo binario
Tengo que mostrar los datos de un archivo binario, del cual conozco su estructura, en un memo.
Todo funciona bien hasta que tengo que mostrar un dato de tipo array of char de 34 bytes, en ese momento en el memo se carga una linea vacía. Utilizo este código: ---------Declaracion del tipo------------- Type Tpgmf = record //Header block fileprint:smallint; version:smallint; count:integer; //Info Block Blockfingerprint:smallint; BlockVersion:smallint; RecordCount:integer; RecordSize:integer; //General info block Checksum:Longword; CourseName:string[34]; <----Uso esta para el char de 34bytes .... var Form1: TForm; archivo:file of Tpgmf; ... -------lectura del archivo y escritura en el memo------ procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.execute then begin assignfile(archivo,opendialog1.filename); filemode:=FMOpenRead; Reset(archivo); Read(archivo, pgmf); Memo1.lines.add('fileprint:'+inttostr(pgmf.fileprint)); Memo1.lines.add('Version:'+inttostr(pgmf.version)); Memo1.lines.add('Count:'+inttostr(pgmf.count)); Memo1.lines.add('Blockfingerprint:'+inttostr(pgmf.Blockfingerprint)); Memo1.lines.add('BlockVersion:'+inttostr(pgmf.BlockVersion)); Memo1.lines.add('RecordCount:'+inttostr(pgmf.RecordCount)); Memo1.lines.add('RecordSize:'+inttostr((pgmf.RecordSize))); Memo1.lines.add('CheckSum:'+currtostr(pgmf.CheckSum)); Memo1.lines.add('CourseName:'+pgmf.CourseName); <--- Esta me pone la linea vacía ... ¿Que estoy haciendo mal?¿Cual es la forma correcta de hacerlo? Gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cargar archivo y guardarlo en tabla | Carliviris | Varios | 4 | 30-09-2006 00:39:43 |
cargar archivo este si | gulder | API de Windows | 12 | 04-05-2005 06:26:21 |
cargar un archivo sys en builder | israelgs | C++ Builder | 0 | 08-10-2004 21:25:32 |
Cargar Archivo | srangel | JAVA | 0 | 03-09-2004 21:19:15 |
Cargar archivo chm | esocrates | Varios | 1 | 27-07-2003 09:58:02 |
|