Editar un buffer

[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.

[Dedalo]

Por cierto, para llenar el memo lo haces cuando la pasada lo piad, al final de cada grupo de 16.

Código Delphi [-]
 
for j:=0 to 4095 do
begin
 Fila:=j mod 16
 columna:= j div 16
 if Fila=0 then Str:= IntToHex(j,4); // empieza una fila nueva
 StringGrid1.Cells[columna,fila] := IntToHex(Buffer[j],2);
 if Fila=15 then Memo1.Lines.Add(Str); // se acaba una fila, al memo
end:

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[MaMu]

Empezado por JoseFco

Hay algo que no entiendo bien.
Me dices que no haga doble bucles. te refieres a que no ponga el addres primero y despues intente llenar el resto del stringgrid con la data.En otra rutina por separado.?

Un Saludo.

Es exactamente lo que te esta sugiriendo, si analizas el bucle contempla todos los numeros y nunca los repetiras.

Saludos

[Dedalo]

Empezado por MaMu

Es exactamente lo que te esta sugiriendo, si analizas el bucle contempla todos los numeros y nunca los repetiras.

Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"