Ya sta,.,.
Código Delphi
[-]
procedure TForm1.InicializaGridBuffer;
var
nRow, nCol : integer;
begin
StringGrid1.DeFaultColWidth := 35;
StringGrid1.FixedCols := 0;
StringGrid1.Cells[0,0] := 'Addr';
for nCol := 0 to 15 do
begin
for nRow:= 0 to StringGrid1.rowCount-1 do
begin
StringGrid1.Cells[nCol,nRow] := 'FF';
if (nRow=0)then StringGrid1.Cells[nCol,0] := IntTohex(nCol,2);
if (nCol=0)then StringGrid1.Cells[0,nRow] := IntTohex(nRow,2);
end;
end;
end;
pcicom arroba hotmail punto com