delphi,stringgrid控件，怎么在已输入文本的最后一行 后 继续添加文本？

文本占据了多少行，这个能知道吗？表格已做好90行4列。 比如： form4.StringGrid1.Cells[1,1]:='1'
form4.StringGrid1.Cells[2,2]:='2'
form4.StringGrid1.Cells[3,3]:='3' 怎么知道文本的最后一行的 行号，我想在cells[4,4]添加文本，
注意 我不知道文本已经输入了3行， 也就是cells[4, count ] 这个count 怎么写，有什么办法解决也行。

StringGrid1.RowCount 就是表格的行数。你那里cells[4,StringGrid1.RowCount+1]这样写。

procedure tform1.stringgrid1click(sender: tobject); var i,j:integer; begin stringgrid1.colcount := 128; stringgrid1.rowcount := 128; for i:= 34 to stringgrid1.colcount do begin stringgrid1.cells[i-33,0]:= inttostr(i-33); stringgrid1.colwidths[i-33] := stringgrid1.canvas.textwidth(' 宽 ') end; for j:= 34 to stringgrid1.rowcount do begin stringgrid1.cells[0,j-33]:= inttostr(j-33); end; for j:= 34 to stringgrid1.rowcount do for i:= 34 to stringgrid1.colcount do stringgrid1.cells[i-33,j-33]:= chr(j+127)+ chr(i+127); end; 单击stringgrid时触发的事件。