Delphi7的StringGrid添加数据
1、打开Delphi7集成开发环境，在默认工程的Form1窗体倘三放置一个StringGrid1控件，并拉升边界调整大小。
2、再向Form1窗体放一个Button1控件，设置其Caption属性为：添加数据
3、双击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:=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的显示。
