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 begin
k := j;
StringGrid1.Height := StringGrid1.Height + 1;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[0,k+1] := IntToHex(l,4);
l := l + 16; end;
end;
Saludos
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;