Código Delphi [-] ws.Cells.Item[i+1, 2].NumberFormat := '@'; ws.Cells.Item[i+1, 2]:= StringGrid1.Cells [1,i];
ws.Cells.Item[i+1, 2].NumberFormat := '@'; ws.Cells.Item[i+1, 2]:= StringGrid1.Cells [1,i];