procedure TForm6.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=stringgrid1.Row;
stringgrid1.Rows[i].Delete(i);
end;
我想实现的是该行删除,而不是clear(不会中间出现空行)
var
i:integer;
begin
i:=stringgrid1.Row;
stringgrid1.Rows[i].Delete(i);
end;
我想实现的是该行删除,而不是clear(不会中间出现空行)
解决方案 »
- 两mysql 间怎样导表数据在DELPHI里不知道怎样写
- listview画背景的问题
- DELPHI的JPEG的SAVETOFILE函数是不是有问题啊?
- 急!!关于开发文档的问题
- 如何让FLASH文件可以全屏播放呢?我在FORM中放了PALE把FLASH控件放PALE上,FORM设成全屏的,PALE的AGLIGH设成CLIENT,FLASH的AGLIGH设成CLIEN
- 如何判断一个form的存在?
- 我在3个字符串'Page1','Page2','Page3'。请问怎样把它们当着控件名使用。谢谢!
- 一个提了很多遍的问题,请大家多帮忙。
- 关于GIS的一些问题
- butterflysh(小丫头),来靠右显示的Edit控件
- 求助~关于treeview子节点的添加问题
- LoadBitmap与ResDLL问题
begin
if StringGrid5.Cells[1,i] = StringGrid4.Cells[0,Row] then
begin
for j:=i to StringGrid5.RowCount-1 do
begin
StringGrid5.Cells[0,i] :=StringGrid5.Cells[0,i+1];
StringGrid5.Cells[1,i] :=StringGrid5.Cells[1,i+1];
StringGrid5.Cells[2,i] :=StringGrid5.Cells[2,i+1];
StringGrid5.Cells[3,i] :=StringGrid5.Cells[3,i+1];
end;
StringGrid5.RowCount:=StringGrid5.RowCount-1;
end;
end;用这种方法可以达到你的要求,是将StringGrid5中一行删除。
这句是什么意思?怎么会有5和4?