盒子论坛 v2.1

//删除当前行。
var
  iRow,iCol:integer;
begin
   with StringGrid1 do
   begin
      if Row<1 then exit;
      for iRow := Row to RowCount - 1 do
        for iCol := 0 to ColCount-1 do
          Cells[iCol,iRow] := Cells[iCol, iRow + 1];
     if Row=RowCount-1 then
       Row:=Row-1;
     RowCount := RowCount - 1;
   end;
end;
----------------------------------------------

充电..........

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/6 11:18:49

1楼：

很麻烦要整行整行的去移动后面的数据！没有快的办法！
----------------------------------------------

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2004/3/6 11:19:44

2楼：

while n < StringGrid.RowCount - 1 do
begin
StringGrid.Rows[n] := StringGrid.Rows[n+1];
Inc(n);
end;
----------------------------------------------

充电..........

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2004/3/6 11:21:49

3楼：

要么：
type
  TExCell = class(TStringGrid)
  public
    procedure DeleteRow(ARow: Longint);
    procedure DeleteColumn(ACol: Longint);
    procedure InsertRow(ARow: LongInt);
    procedure InsertColumn(ACol: LongInt);
  end;
procedure TExCell.InsertColumn(ACol: Integer);
begin
  ColCount := ColCount + 1;
  MoveColumn(ColCount - 1, ACol);
end;
procedure TExCell.InsertRow(ARow: Integer);
begin
  RowCount := RowCount + 1;
  MoveRow(RowCount - 1, ARow);
end;
procedure TExCell.DeleteColumn(ACol: Longint);
begin
  MoveColumn(ACol, ColCount - 1);
  ColCount := ColCount - 1;
end;
procedure TExCell.DeleteRow(ARow: Longint);
begin
  MoveRow(ARow, RowCount - 1);
  RowCount := RowCount - 1;
end;
end;
----------------------------------------------

充电..........

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/6 11:40:16

4楼：

cjrb
老大你怎么不开QQ？
----------------------------------------------

信息

登陆以后才能回复