怎么在StringGrid最上边插入一行？(100)

在最上边插入一行，数据往下移。

http://www.delphibbs.com/keylife/iblog_show.asp?xid=4429

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm) Button1: TButton; sg: TStringGrid; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;type TExCell = class(TStringGrid)public //procedure DeleteRow(ARow: Longint); // procedure DeleteColumn(ACol: Longint); procedure InsertRow(ARow: LongInt); // procedure InsertColumn(ACol: LongInt);end;var Form1: TForm1;implementation{$R *.dfm}procedure TExCell.InsertRow(ARow: Integer);begin RowCount :=RowCount +1; MoveRow(RowCount-1, ARow);end;procedure TForm1.Button1Click(Sender: TObject);var sg : TExCell ;begin sg := TExCell.Create(sg); sg.InsertRow(5);end;end.帮看下，怎么不好用呀？

stringgrid1.RowCount:=stringgrid1.RowCount+1;for i:=0 to stringgrid1.RowCount-1 do for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,i]:=stringgrid1.Cells[j,i+1];for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,0]:='11'; 我试了下，没有实现我要的效果。在最上边插入一行，数据一次往下移一行

stringgrid1.RowCount:=stringgrid1.RowCount+1;for i:=0 to stringgrid1.RowCount-1 do for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,i+1]:=stringgrid1.Cells[j,i];for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,0]:='';

对不起，刚才有点地方写错了，纠正一下，你再试一下stringgrid1.RowCount:=stringgrid1.RowCount+1;for i:=0 to stringgrid1.RowCount-1 do for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,i+1]:=stringgrid1.Cells[j,i];for j:=0 to stringgrid1.ColCount-1 do stringgrid1.Cells[j,0]:='';

接受答案了.