for j:=StringGrid1.Row to 49 do
begin
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j + 1];
StringGrid1.Cells[1,j]:=StringGrid1.Cells[1,j + 1];
StringGrid1.Cells[2,j]:=StringGrid1.Cells[2,j + 1];
StringGrid1.Cells[3,j]:=StringGrid1.Cells[3,j + 1];
StringGrid1.Cells[4,j]:=StringGrid1.Cells[4,j + 1];
StringGrid1.Cells[5,j]:=StringGrid1.Cells[5,j + 1];
end; 与
for j:=StringGrid1.Row to 49 do
begin
StringGrid1.Cells[0,StringGrid1.Row ]:=StringGrid1.Cells [0,StringGrid1.Row + 1];
StringGrid1.Cells[1,StringGrid1.Row ]:=StringGrid1.Cells[1,StringGrid1.Row + 1];
StringGrid1.Cells[2,StringGrid1.Row ]:=StringGrid1.Cells[2,StringGrid1.Row + 1];
StringGrid1.Cells[3,StringGrid1.Row ]:=StringGrid1.Cells[3,StringGrid1.Row + 1];
StringGrid1.Cells[4,StringGrid1.Row ]:=StringGrid1.Cells[4,StringGrid1.Row + 1];
StringGrid1.Cells[5,StringGrid1.Row ]:=StringGrid1.Cells[5,StringGrid1.Row + 1];
end;
有 什么不同?????????????
begin
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j + 1];
StringGrid1.Cells[1,j]:=StringGrid1.Cells[1,j + 1];
StringGrid1.Cells[2,j]:=StringGrid1.Cells[2,j + 1];
StringGrid1.Cells[3,j]:=StringGrid1.Cells[3,j + 1];
StringGrid1.Cells[4,j]:=StringGrid1.Cells[4,j + 1];
StringGrid1.Cells[5,j]:=StringGrid1.Cells[5,j + 1];
end; 与
for j:=StringGrid1.Row to 49 do
begin
StringGrid1.Cells[0,StringGrid1.Row ]:=StringGrid1.Cells [0,StringGrid1.Row + 1];
StringGrid1.Cells[1,StringGrid1.Row ]:=StringGrid1.Cells[1,StringGrid1.Row + 1];
StringGrid1.Cells[2,StringGrid1.Row ]:=StringGrid1.Cells[2,StringGrid1.Row + 1];
StringGrid1.Cells[3,StringGrid1.Row ]:=StringGrid1.Cells[3,StringGrid1.Row + 1];
StringGrid1.Cells[4,StringGrid1.Row ]:=StringGrid1.Cells[4,StringGrid1.Row + 1];
StringGrid1.Cells[5,StringGrid1.Row ]:=StringGrid1.Cells[5,StringGrid1.Row + 1];
end;
有 什么不同?????????????
解决方案 »
- ISafeObject 接口 delphi开发activex中需要加入吗?
- 怎样将文件以特定的形式保存起来
- 请教 interger and string 问题
- 100分求一个ADO访问数据库的简单实例!!!
- 怎样在delphi代码运行exe文件,如运行记事本,在线等待
- 如何取得任意软件某窗体的hWnd?以及任意EDIT的hWnd?
- 如何将特定的内容用特定的打印机打印??
- 关于窗口显示在屏幕右下角问题
- 利用ado改变绝对路径为相对路径遇到的问题
- 关于asp传递参数给delphi的问题,答对了,我把我所有的分数,呵呵,22分给他。
- 初级人,初级问题,解决衙100分相送
- 怎样增加TCheckListBox带左面的下拉条和底部的水平拉条的属性?
比如StringGrid1.Cells[0,1]:=StringGrid1.Cells[0,2];
StringGrid1.Cells[1,1]:=StringGrid1.Cells[1,2];
.........................
StringGrid1.Cells[1,1]:=StringGrid1.Cells[1,2];
StringGrid1.Cells[2,1]:=StringGrid1.Cells[2,2];第二段是横坐标的所有数据都相等。
如比如StringGrid1.Cells[0,1]=StringGrid1.Cells[0,2]=StringGrid1.Cells[0,3]=StringGrid1.Cells[0,...];