打开Delphi7集成开发环境，在默认工程的Form1窗体放置一个StringGrid1控件，并拉升边界调整大小。

再向Form1窗体放一个Button1控件，设置其Caption属性为：添加数据

双击Button1按钮，在OnClick事件方法中写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

var

arr:array of string;

i,j:integer;

begin

arr:=姓名;

arr:=班级;

arr:=学号;

arr:=张三;

arr:=一班;

arr:=001;

arr:=李四;

arr:=一班;

arr:=002;

StringGrid1.ColCount:=3; //限定列数

StringGrid1.RowCount:=3; //限定行数

for i:=Low(arr) to High(arr) do

for j:= Low(arr) to High(arr) do

begin

StringGrid1.Cells:=arr //StringGrid1.Cells

end;

end;

先构造一个数组，用来填StringGrid

F9运行程序，点击添加数据按钮，会发现数据被成功添加了。

这样虽然成功添加了数据，但是不够美观，我们试着把最左边那一列去掉，通过设置列宽为0，再使数据整体右移。双击Button1按钮，在OnClick事件方法中写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

var

arr:array of string;

i,j:integer;

begin

arr:=姓名;

arr:=班级;

arr:=学号;

arr:=张三;

arr:=一班;

arr:=001;

arr:=李四;

arr:=一班;

arr:=002;

StringGrid1.ColCount:=4;

StringGrid1.RowCount:=3;

StringGrid1.ColWidths:=0;

for i:=Low(arr) to High(arr) do

for j:= Low(arr)+1 to High(arr)+1 do

begin

StringGrid1.Cells:=arr

end;

end;

F9运行程序，点击添加数据按钮，会发现数据好看多了，像Excel的显示。