Editar un buffer

[[FGarcia]]

Gracias por la informacion Dedalo. Lo voy a estudiar para continuar aprendiendo.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[MaMu]

La variable k, sobra.
De 0 a 15 deberia ser lo mismo que de 0x0000 a 0x000F y vos lo que estas haciendo, es llenar una columa con el final de la cuenta de 0 a 15, entonces,
0x0000 a 0x000F que sigue? 0x0010, y ahi te empieza a escribir. El procedimiento esta "alrevez".

Saludos

[MaMu]

Te diste cuenta?, mira la corrección, es muy sencillo.

Código Delphi [-]

procedure TForm1.InicializaGridBuffer;
var  i,j,k,l: integer;
begin
  StringGrid1.ColWidths[0] := 35;
  StringGrid1.Cells[0,0] := 'Addr';
  j := $0000;  l := $0000;
  for i := 0 to 15 do
    StringGrid1.Cells[i+1,0] := IntTohex(i,2);
  for j := 0 to (BufferSize div 16)-1 do    // (BufferSize div 16)
    begin
      k := j;
      StringGrid1.Height := StringGrid1.Height + 1;
      StringGrid1.RowCount := StringGrid1.RowCount + 1;
      StringGrid1.Cells[0,k+1] := IntToHex(l,4);
      l := l + 16;  //Porque?, arranco de 0000 primero
    end;
end;

Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[Dedalo]

Para tratar una serie de 0 a 4095 no hagas dos bucles, haz uno solo.

Código Delphi [-]
 
for j:=0 to 4095 do
begin
 Fila:=j mod 16
 columna:= j div 16
 StringGrid1.Cells[columna,fila] := IntToHex(Buffer[j],2);
end:

Asi no pierdes ni uno solo de los valores ni repites ninguno.