FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
StringGrid rellenar rapidamente.
Hola amigos. Estoy haciendo un programita que me muestra en un StringGrid el contenido de un archivo en modo Hexadecimal.
Todo va bien, el problema es que si el archivo es grande tarda un tiempo considerable ya que se va rellenado sobre la marcha. Hay algun modo de cargar los datos y despues volcarlos en el StringGrid igual que se vuelcan los datos de un TStringList en un ListBox.? Tambien me valdria para volcar los datos en un ListView. Gracias. |
#2
|
|||
|
|||
Es que usar un stringgrid para lo que pretendes no es la solucion correcta, no escala bien, si el archivo es grande seria inusable.
Una solucion mas adecuada es usar un TDrawGrid y en el evento OnDrawCell pintar directamente el valor correspondiente leyendolo del archivo, con esto funcionara para cualquier tamaño de archivo sea de 1K o de 1GB de tamaño. La cache del propio sistema operativo y los buffers de las funciones de lectura de archivos ya se encargaran de evitar que se este leyendo continuamente del disco duro. Saludos |
#3
|
|||
|
|||
Gracias Mick lo prabare haber que tal.
|
#4
|
|||
|
|||
No estoy muy seguro de qué tanto beneficia usar un DrawGrid. De entrada, el StringGrid también tiene el evento OnDrawCell, pero los datos de cualquier manera se tienen que vaciar sobre el componente. Posiblemente hay algo que no termino de ver, pero veo más conveniente usar un componente como el TListView, o mejor, el TVirtualTreeView, que funcionan en modo virtual. Esto significa que el componente no debe tener todos los datos al mismo tiempo, sino que éstos pueden mantenerse en otra estructura más eficiente (incluso, quizá, el propio disco) y se proporcionan al componente conforme se van requiriendo.
Bye |
#5
|
|||
|
|||
Cita:
Es decir un TDrawGrid es como el TVirtualTreeView que comentas. Da igual de este modo que el archivo ocupe mucho o poco el consumo de memoria ram y la sobrecarga por cargar todos los datos en memoria al principio es CERO porque no se hace. Saludos Última edición por Mick fecha: 29-02-2008 a las 18:51:39. |
#6
|
|||
|
|||
¡Ah! Ok. Gracias por la aclaración. La verdad es que desconocía el uso del DrawGrid y di por sentado algo incorrecto.
Bye |
#7
|
|||
|
|||
La verdad es que nunca e usado DrawGrid. Haber como me las avio para dibujar todos los datos que necesito mostrar.
Os muestro lo que llevo echo para que le echeis un vistazo. De momento solo es el esqueleto. Solo hay que incluir un StringGrid y un boton. implementation {$R *.dfm} function Min(i,j: Integer): Integer; begin if i < j then Result:= i else Result:= j; end; procedure TForm15.Button1Click(Sender: TObject); var Buffer: array[1..16] of Byte; F: File; Leidos: Integer; i,c,x: Integer; Offset: Cardinal; L:String; begin i:=0; c:=0; OpenDialog1.Execute; AssignFile(F,OpenDialog1.FileName); Filemode:= 0; {$I-} Reset(F,1); {$I+} if IOResult = 0 then begin Offset:= 0; while not Eof(F) do begin //********************** StringGrid1.Cells[i,c]:=IntToHex(Offset,8); BlockRead(F,Buffer,16,Leidos); //************************** //******************************** for i:= 1 to Min(Leidos,8) do StringGrid1.Cells[i,c]:=IntToHex(Buffer[i],2); //*********************************** //********************************** for i:= 9 to Min(Leidos,16) do StringGrid1.cells[i,c]:=IntToHex(Buffer[i],2); //*********************************** //*********************************** for i:= Min(Leidos,16) + 1 to 16 do StringGrid1.Cells[i,c]:=#32; for x:= 1 to Min(Leidos,16) do if Char(Buffer[x]) in ['A'..'Z','a'..'z','0'..'9'] then StringGrid1.Cells[i+x,c]:= Char(Buffer[x]) else StringGrid1.Cells[i,c]:='.'; StringGrid1.Cells[i,c]:='|'; inc(Offset,Leidos); inc(c); i:=0; // Va aumentado las filas segun lo necesite. StringGrid1.RowCount:=StringGrid1.RowCount+1; end; CloseFile(F); i:=0; end; end; procedure TForm15.FormCreate(Sender: TObject); begin StringGrid1.ColCount:=34; StringGrid1.DefaultColWidth:=15; StringGrid1.DefaultRowHeight:=15; StringGrid1.FixedCols:=0; StringGrid1.FixedRows:=0; StringGrid1.ColWidths[0]:=50; end; |
#8
|
|||
|
|||
Es mucho mas simple que todo lo que estas haciendo con el stringrid, un ejemplo:
Faltarian algunos detallitos como comprobaciones para evitar que se pinte una fila y coordenada que realmente no se corresponde con ningun byte en el fichero en la ultima fila de grid, pero bueno deberia ser suficiente para darte una idea de como se hace y solo falta ampliarlo un poco para que muestre la informacion en ascii, etc. Saludos Última edición por Mick fecha: 29-02-2008 a las 20:06:22. |
#9
|
|||
|
|||
Gracias Mick lo probare.
|
#10
|
|||
|
|||
Lo que yo quiero hacer es que me muestre el archivo de la siguiente manera, igual que un editor hexadecimal. Que es como lo muestra en el codigo que puse como muestra.
00000000:45 53 54 4F 20 45 53 20 ..... :ESTO ES UNA ..... 00000010:42 41 .... :PR Lo podria hacer tambien con DrawGrid.? |
#11
|
|||
|
|||
Hola amigos.
Cita:
A ver si los maestros nos dan una pista por donde comenzar. Un Saludo. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Rellenar con ceros (0) | egarc | SQL | 5 | 08-10-2012 09:42:21 |
Rellenar con 0.... | buitrago | Varios | 6 | 17-11-2011 21:02:53 |
Buscar componentes en el IDE rapidamente | Jose Roman | OOP | 7 | 24-01-2008 12:23:06 |
ABM Rapidamente | loxod | Varios | 12 | 10-05-2007 20:08:32 |
Rellenar una plantilla en PDF | jcmolero | Impresión | 3 | 26-09-2005 10:30:28 |
|