文本占据了多少行，这个能知道吗？表格已做好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 怎么写，有什么办法解决也行。
delphi,stringgrid控件，怎么在已输入文本的最后一行 后 继续添加文本？
答案:2 悬赏:40 手机版
解决时间 2021-02-03 05:13
- 提问者网友：黑米和小志
- 2021-02-02 10:35
最佳答案
- 五星知识达人网友：青尢
- 2021-02-02 12:09
StringGrid1.RowCount 就是表格的行数。你那里cells[4,StringGrid1.RowCount+1]这样写。
全部回答
- 1楼网友：舍身薄凉客
- 2021-02-02 13:01
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时触发的事件。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯