1、打开Delphi7集成开发环境，在默认工程的Form1窗体放置一个StringGrid1控件，并拉升边界调整大小。
2、再向Form1窗体放一个Button1控件，设置其Caption属性为：添加数据
3、双击Button1按钮，在OnClick事件方法中写如下代码：procedure TForm1.Button1Click(S髫潋啜缅ender: TObject);var arr:array[0..2,0..2] of string; i,j:integer;begin arr[0][0]:='姓名'; arr[0][1]:='班级'; arr[0][2]:='学号'; arr[1][0]:='张三'; arr[1][1]:='一班'; arr[1][2]:='001'; arr[2][0]:='李四'; arr[2][1]:='一班'; arr[2][2]:='002'; StringGrid1.ColCount:=3; //限定列数 StringGrid1.RowCount:=3; //限定行数 for i:=Low(arr) to High(arr) do for j:= Low(arr[i]) to High(arr[i]) do begin StringGrid1.Cells[j,i]:=arr[i][j] //StringGrid1.Cells[列，行] end;end;先构造一个数组，用来填StringGrid
4、F9运行程序，点击添加数据按钮，会发现数据被成功添加了。
5、这样虽然成功添加了数倌栗受绽据，但是不够美观，我们试着把最左边那一列去掉，通过设置列宽为0，再使数据整体右移。双击Button1按钮，在OnClick事件方法中写如下代码：procedure TForm1.Button1Click(Sender: TObject);var arr:array[0..2,0..2] of string; i,j:integer;begin arr[0][0]:='姓名'; arr[0][1]:='班级'; arr[0][2]:='学号'; arr[1][0]:='张三'; arr[1][1]:='一班'; arr[1][2]:='001'; arr[2][0]:='李四'; arr[2][1]:='一班'; arr[2][2]:='002'; StringGrid1.ColCount:=4; StringGrid1.RowCount:=3; StringGrid1.ColWidths[0]:=0; for i:=Low(arr) to High(arr) do for j:= Low(arr[i])+1 to High(arr[i])+1 do begin StringGrid1.Cells[j,i]:=arr[i][j-1] end;end;
6、F9运行程序，点击添加数据按钮，会发现数据好看多了，像Excel的显示。
