如何动态改变stringgrid的行数？请教！

luxuewei5214 2004-09-20 10:52:55

我的程序如下，stringgrid的列数固定，行数可变大或小.可是不论怎么变行数只能显示5行，后面的内容无法显示，请给个解决方法，谢谢，成功就给分！
procedure TForm1.Button1Click(Sender: TObject);
var
i:string;
a:array of array of string;
k,j:integer;
begin
i:=edit1.Text;
stringgrid1.RowCount:=strtoint(i);
stringgrid1.ColCount:=5;
a:=nil;
setlength(a,strtoint(i),5);
for k:=0 to strtoint(i)-1 do
for j:=0 to 4 do
begin
a[k,j]:=inttostr(k)+inttostr(j);
stringgrid1.Cells[k,j]:=a[k,j];
end;
edit2.Text:=stringgrid1.Cells[k-1,j-1];
StringGrid1.Invalidate;
end;

...全文

148 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

梅青松 2004-09-20

打赏
举报

数组不是这样的吧，他的下标是先行后列的吧？
--数组是先行后列
我第一个回答把数组倒置了

梅青松 2004-09-20

打赏
举报

sorry上面那个有点问题

你把strinhgrid.cells[Col, Row] 中列和行搞反了
var
i:string;
a:array of array of string;
k,j:integer;
begin
i:=edit1.Text;
stringgrid1.RowCount:=strtoint(i);
stringgrid1.ColCount:=5;
a:=nil;
setlength(a, strtoint(i), 5);
for k:=0 to strtoint(i)-1 do
for j:=0 to 4 do
begin
a[k,j]:=inttostr(k)+inttostr(j);
stringgrid1.Cells[j,k]:=a[k,j];
end;
edit2.Text:=stringgrid1.Cells[j-1,k-1];
StringGrid1.Invalidate;
end;

luxuewei5214 2004-09-20

打赏
举报

也谢谢阿飞

luxuewei5214 2004-09-20

打赏
举报

xiaoxiao197821(你的笑对我很重要) 谢谢你，你是对的，不过再问一下，数组不是这样的吧，他的下标是先行后列的吧？

lzy6204 2004-09-20

打赏
举报

可能是算法不对

梅青松 2004-09-20

打赏
举报

你把列和行搞反了
var
i:string;
a:array of array of string;
k,j:integer;
begin
i:=edit1.Text;
stringgrid1.RowCount:=strtoint(i);
stringgrid1.ColCount:=5;
a:=nil;
setlength(a,5,strtoint(i));
for k:=0 to strtoint(i)-1 do
for j:=0 to 4 do
begin
a[j,k]:=inttostr(k)+inttostr(j);
stringgrid1.Cells[j,k]:=a[j,k];
end;
edit2.Text:=stringgrid1.Cells[j-1,k-1];
StringGrid1.Invalidate;
end;