StringGrid问题。晚上11点结帖。

Question

StringGrid中现在显示有数据，我想实现双击某行就删除这行的数据，并且这行以下的数据上移一行，这样刚删除的那行就不会有空行出现。谢谢！我在线。

Answer 1

首先你要设rowselect为true
然后就先将本行的设为‘’，有个col和row的属性就是当前选中的那行，然后逐行上移就好啦：）

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    i,j:integer;
begin
    StringGrid1.RowCount:=StrToInt(Edit1.Text);
    StringGrid1.ColCount:=StrToInt(Edit2.Text);
    for i:=0 to StrToInt(Edit1.Text)-1 do
        for j:=0 to StrToInt(Edit2.Text)-1 do
        begin
            StringGrid1.Cells[j,i]:=IntToStr(i*j);
        end;
end;procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
    iPos:integer;
    i,j:integer;
begin
    iPos:=StringGrid1.Selection.Top;
    for i:=iPos to StringGrid1.RowCount-2 do
    begin
        for j:=0 to StringGrid1.ColCount-1 do
        begin
            StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];
        end;
    end;
    StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

Answer 3

var
    iPos:integer;
    i,j:integer;
begin
    iPos:=StringGrid1.Selection.Top;
    for i:=iPos to StringGrid1.RowCount-2 do                //HERE
    begin
        for j:=0 to StringGrid1.ColCount-1 do
        begin
            StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];
        end;
    end;
    StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
--------------------------------------------------------------------
不明白为什么前面FOR语句结束要少一位，StringGrid1.RowCount-2，这样写的结果是导致最后一条数据无法删除。

Answer 4

pressman(logitech) ( ) 信誉：98 ///////////////////////
老兄，试过没有啊。写成RowCount-2当然有RowCount-2的理由啊。
因为循环到这里就能够完成对数据的赋值了，
否则StringGrid1.Cells[j,i+1];是不是越界啦。

Answer 5

procedure TForm1.SGDeleteDblClick(Sender: TObject);
var
   i,j:integer;
   s:string;
begin
   for j:=SGDelete.Row to SGDelete.RowCount-2 do
      for i:=1 to SGDelete.ColCount-1 do
          SGDelete.Cells[i,j]:=SGDelete.Cells[i,j+1];
   SGDelete.RowCount:=SGDelete.RowCount-1;
end;

Answer 6

RowCount-2是对的！ 不然就越界了。
“StringGrid1.RowCount-2，这样写的结果是导致最后一条数据无法删除。”
没看到最后一句吗？SGDelete.RowCount:=SGDelete.RowCount-1;这样就把最后一行删除掉了。

Answer 7

TO lxh84(郁闷的鱼) ：
  SGDelete.RowCount:=SGDelete.RowCount-1;这好象是把SGDelete的列数减一吧。
TO gzmhero(hihihi) ：
  的确写成-1会越界，但写成-2应该的确是最后一条记录无法删除，测试了。
可以寻求更好的解决办法，当然，比直接覆盖这样的办法麻烦一点。

Answer 8

就是边缘情况，当最后变成1行是，再双击不会将当前的内容删除，
StringGrid一定要有一行在显示，不能删除这一行，不过可以赋空值。    if StringGrid1.RowCount<2 then
    begin
        for j:=0 to StringGrid1.ColCount-1 do
            StringGrid1.Cells[j,0]:='';
    end else
    begin
        for i:=iPos to StringGrid1.RowCount-2 do
        begin
            for j:=0 to StringGrid1.ColCount-1 do
            begin
                StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];
            end;
        end;
        StringGrid1.RowCount:=StringGrid1.RowCount-1;
    end;