Question

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 怎么写，有什么办法解决也行。

Answer 1

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

追问

表格的行数 已经固定好了，比如90行4列

追答

那你自己定义个变量记录文本最后一行，每输入一行文本，该变量就+1。又或者，你的文本输入不会出现空行，那就循环扫描每一行，遇到空行则前一行是文本最后一行。

追问

判断某一行 是否为空的 代码是？ 还有，没有记录文本最后一行行号的变量吗？
stringgrid.count是记录表格的行数，而不是文本。 类似于 memo.lines.count 那样

追答

好像只有rowcount。自定义一个变量还方便些.
判断空行：
var
i:Integer;
s:string;
begin
for i:=0 to StringGrid1.RowCount-1 do
begin
s:=StringReplace(StringGrid1.Rows[i].Text,#$D#$A,'',[rfReplaceAll]); //去回车换行符
if s='' then Break;
end;
end;