Delphi StringGrid

dwwuhan 2009-07-14 04:34:35
begin

into(Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text,StringGrid2);

StringGrid2.RowCount:= StringGrid2.RowCount+1;

end;

请问这条语句有什么错误?总是不能运行?
...全文
24 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
dwwuhan 2009-07-15
  • 打赏
  • 举报
回复
谢谢啦!
yjytiantang 2009-07-14
  • 打赏
  • 举报
回复
恩 赋值应该想楼上写的那样
你的into是不是写的一个方法啊??
chdaner 2009-07-14
  • 打赏
  • 举报
回复
没见过那个赋值的语句...
这是我写的一个。

with adoquery4 do begin

for i:=0 to adoquery4.FieldCount-1 do begin
stringgrid1.Cells[i,0]:=adoquery4.Fields[i].FieldName;
end;
first;
j:=1;
while not adoquery4.Eof do begin
stringgrid1.Cells[0,j]:=fields[0].AsString;
stringgrid1.Cells[1,j]:=fields[1].AsString;
stringgrid1.Cells[2,j]:=fields[2].AsString;
stringgrid1.Cells[3,j]:=fields[3].AsString;
stringgrid1.Cells[4,j]:=fields[4].AsString;
stringgrid1.Cells[5,j]:=1-fields[5].AsVariant;
for i:=6 to adoquery4.FieldCount-1 do begin
stringgrid1.Cells[i,j]:=fields[i].AsString;
end;
next;
inc(j);
end;
end;
liuweiyc 2009-07-14
  • 打赏
  • 举报
回复
stringgrid赋值貌似不是这么写的吧。

应当是stringgrid.cell[1,2]:='测试'; 给第一列第二行的单元格赋值为 '测试'
dwwuhan 2009-07-14
  • 打赏
  • 举报
回复
就是通过Edit输入数据,然后在StringGrid中显示啊!
bdmh 2009-07-14
  • 打赏
  • 举报
回复
怎么不能运行,into是什么东东

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧